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NETX 


000001 
000002 


000003 
000004 
000005 
O00006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
Q00C15 
000016 
000017 
000018 
000019 
000020 


SOFTWARE 


Over 


0000 


“SAF 
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2 


- 


09:20:58 HRF ASSEMBLER 
TITLE NETX SOFTWARE 
XDEF ESNETX NEEDED FOR MODULE MAP 


SENETX EQU $ 
* 

*This document and the information contained herein are 
xconfidential to and the property of BASIC DESIGN INC. and 

kare made available only to BASIC DESIGN employees and 
xlicensees of this software for the sole purpose of maintaining 
*BASIC DESIGN's products. This documents any copy thereof and 
xthe information contained herein shall be maintained in 
*strictest confidence, 
x*shall not be disclosed or distributed. 
* 


*This software is confidential and proprietary to BASIC DESIGN, 
* 

*COPYRIGHT 1979 by BASIC DESIGNs INC. 

*COPYRIGHT 1980 by BASIC DESIGN» INC. 


* 


START OF MODULE NETX 


*This software is considered to be and treated as 
*TRADE SECRET information of BASIC DESIGN» INC. 


shall not be copied in whole or in parts 


DTSS L=6 HOST RESIDENT FACILITY 


INC. 


PAGE 


0001 


’ 


Prati a pt one ee Se oe 
7 . oy o4 


NETX 


| 


000021 
000022 
veoUes 
00C024 
000025 
000026 
9009027 
0009028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000936 
000037 
000038 
000039 
090040 
000041 
000942 
000043 
000044 
000045 
9000946 
000047 
000948 
009049 
000050 
009951 
0099052 
090053 
000954 
000055 
000056 
000057 
0000528 
000059 
000060 
000061 
000062 
000063 
GO0064 
000065 
000066 
000067 
000068 


SOFTWARE 


0000 
0040 
0030 
O0CO 


0001 
0002 
0003 
0005 
0006 
0007 
0008 
OOOA 
Qo00c 
QOOF 
0010 
0011 
0012 
0013 


0918 
QO1A 
0026 


9909 


00909 
0049 


0000 
9400 


0001 
0002 


0003 


O0903 
0004 
0006 
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1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
TOTS 
1014 
1015 
10716 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 


PESECT 


* 
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*I10 DRIVERS 


x 
$10CHO 
$IOCH1 
SIOCH2? 
SBIOCH3 
* 

SOTCTL 
SICTLI 
SICTLO 
SOCCTL 
STSKRI 
STSKRO 
SINMBA 
SINMMA 
SINRNG 
SOBCTL 
SCFGAI 
S$CFGAO 
$C FGBI 
$C FGBO 
* 

$ISTS1 
$ISTS2 
$IDINP 
x 

SIOLD 
SIOLDI 
SIOLDO 


* 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQY 
EQU 
EQU 


EQU 
EQuU 
EQuU 


EQU 
EQU 
EQU 
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z'o000' 
z*0040' 
z'0080' 
z*ooco' 


z'O001' 
£70002" 
z'0003° 
2*O0005' 
Z'0O006' 
z'OO007'° 
f° 0003; 
Z*OOOA' 
z*oooc! 
Z*COOF' 
2.0070" 
z2*'O011' 
Z'0012' 
Z2*0013' 


2° O0138" 
Z*CO1A' 
z*0026' 


z*o009' 


SIOLDt+$1IOCHO 
SPIOLDt+SIOCHI 


*MISCELLANEOQUS CHANNELS 


x 
CPUOQCH 
BTLDCH 
" 
x 


EQU 
EQU 


0 
z'0400° 


*CLOCK BLOCK DEFINITIONS 


* 

FPTR 
LPTR 

* 
USRDTA 
* 
SWORD 
UWORD 
RWORD 


EQU 
EQU 


EQU 
EQU 


EQU 
EQU 


OR WN 
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IQ0 CHANNELS 


CONTROL INFORMATION OUTPUT 
INPUT INT CONTROL INFO 
OUTPUT INT CONTROL INFO 
OUTPUT CHANNEL CONTROL 
INPUT TASK REGISTER 

OUTPUT TASK REGISTER 

INPUT MEMORY BYTE ADDRESS 
INPUT MEMORY MODULE ADDRESS 
INPUT RANGE RESIDUE 

OUTPUT BUFFER CONTROL 
INPUT CNFG REGISTER A 
OUTPUT CNFG REGISTER A 
INPUT CNFG REGISTER 8B 
OUTPUT CNFG REGISTER 8B 


INPUT STATUS REG 1 
INPUT STATUS REG 2 
INPUT DEVICE ID 


SIMPLE LOAD (NO DIRECTION) 


PAGE 0002 


LOAD AND START DCW EXECUTION (TO US) 


LOAD AND START DCW EXECUTION 


CHANNEL OF CPUAO 
BOOTLOAD CHANNEL 


FIRST BLOCK POINTER 
LAST BLOCK POINTER (SAF) 


START OF DATA IN QUEUE BLOCKS 


STREGISTER OR STATUS 
USERS XB? 
RUN ADDRESS 


CFROM US) 


e 
@ 
@ 
@ 
© 
® 
e 
® 
® 

e 
e 
® 
e 
® 
e 
e 
e 
e 
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000069 DTSS L-6 HOST RESIDENT FACILITY PAGE 0003 
. 000 2000 /EJECT @ 
@ 1070 2001 * 
| oooc71 
@ 000073 . 
o00074 ae *CONTROL CHARACTERS 
! 000075 0000 : 
@ 000076 aon 2006 $SASCCR EQU 13 ® 
: aeanes a 2007 SASCLF EQU 10 
o0c078 ODOA See ae ed 27 e 
@ TS oe RLF EQuU Seca aan eee. Sere acai 
0 
000081 ae *NUMBERS (0-9) © 
: * 
@ 000082 0030 eee | 
000083 0031 aan EQU 48 
o00084 ee 2014 $ASC1 EQU 49 e 
e onndss ae 2015 $ASC2 EQU 50 
000086 Baan oe SASC3 EQU 51 
000087 are 017 $ASC4 EQU 52 e 
000089 0037 2019 SASC6 EQU 54 
ay: eee 2020 $ASC7 EQU 55 e 
e abO0e ee 2021 SASC8 EQU 56 
000092 a. SASCI EQu 57 
: 000093 » 
-@ 000094 eee *LETTERS (A=Z) @ 
‘ * 
- Fae rae 2026 BASCA 
. 000096 0042 SC EQu 65 e 
@ 000097 ae 2027 SASC8 EQU Bé 
000098 0044 oe SASCC EQU 67 
noceos ae ao SASCD EQU 68 e 
e 000190 0046 30 $ASCE EQU 69 
000101 0047 2031 SASCF EQu 70 
acon Ae 2032 $ASCG EQuU 71 e 
e@ 000103 9049 2033 $ASCH EQU 72 
000104 a ae SASCI EQU 73 
000105 ae 035 $ASCJ EQU 74 e 
& 000156 004¢ 2036 SASCK EQU 75 
aoates aoe 2037 $ASCL Eau 26 
aie ae 2038 $ASCM EQU 7? © 
need a 2041 $ASCP EQU 80 ry 
® 000112 0052 2042 $ASCQ EQU 31 
000113 0052 a SASCR EQU 82 
aeons ane 044 $ASCS EQU 83 @ 
® 000115 2045 SASCT EQU 84 
0055 2046 $ 
000116 0056 pane ae 85 
000117 ee 2047 $ASCV EQU 86 ® 
@ 000118 2048 $ASCW EQU 87 
nOGi2G ae 2050 $ASCY EQU 89 
e 2051 $ASCZ EQU 90 @ 
) @ 


[eae 


on CAT 
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000121 
000122 
090123 
000124 
000125 
000126 
000127 
000128 
000129 
0091230 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
9001740 
000141 
000142 
000143 
000144 
900145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
0001753 
000154 
000155 
000156 
000157 
000158 
000159 
000169 


SOFTWARE 


0020 
0024 
0027 
0028 
0029 
002A 
0028 
002c 
0020 
O02E 
OO02F 
OO3A 
0038 
003¢ 
0030 
O03E 
OO3F 
0040 
005¢ 
O0SE 
OOSF 
OO7F 
7F7F 


0005 
QO18 
QOTA 


0009 
0008 
d00Cc 
J919 
001D 
OODIE 
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2052 
CaS 
2054 
2055 
2056 
e0or 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
rag OW gee 
2074 
2075 
ZUG 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 


FEJECT 


* 
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*SPECIAL CHARACTERS 


* 
BASCSP 
SASCOL 
SASCAP 
SASCLP 
SASCRP 
BASCAS 
BASCPL 
SBASCCM 
SASCTOS 
BASCOT 
BASCFS 
BASCCN 
SASCSC 
SASCLT 
SASCER 
BASCET 
SBASCQM 
SASCAT 
S$ASCBS 
SASCUA 
SBASCBA 
SASCRO 
BRORO 
* 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQUu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQYU 
EQU 
EQU 
EQU 
EQU 
EQU 


95 
127 


SASCRO*Z'"OTOO0T+SASCRO TIME DELAY PAIR 


* CONTROL CHARACTERS 


* 


S$ACCE 
SBACCX 
BACCZ 
* 
SBASCHT 
SBASCVT 
SBASCFF 
SBASCEM 
SBASCGS 
SASCRS 


EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
Eau 
EQU 


BASCE-64 

SASCX-64 

bASCZ~64 

9 HORIZONTAL TAB 
11 VERTICAL TAB 

Ve FORM FEED 

2D END MEDIA 

29 GROUP SEPERATOR 
30 RECORD SEPERATOR 
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NETX 


000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000179 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
0001787 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
0001796 
000197 
000198 
000199 
o00o200 
000201 
006202 
000203 
000204 
o0c2c5 


SOFTWARE 


0000 
0002 
0003 
0004 
0005 
0006 
OOOA 
0098 
OO0C 
OO0D 


0010 


0040 


0040 
0041 
0042 
0043 
0044 
0045 
0046 


0060 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
N067 


0068 
0068 
0069 
OO6A 
OC66 
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2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
Pea ee 
Fa Wh a 
rea a 
2114 
2uts 
2176 
ra ea 
2118 
2119 
2120 
2121 
2122 
ches 
2124 
ee 
2126 
21er 
2128 
2129 
2130 
2131 
a Me 
2133 
2134 
2135 
2136 


FESEGT 


* 
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*SPEED ASSIGNMENT TABLES 


* 
$$10 
$S15 
$$ 30 
$560 
$S120 
$S180 
$S240 
$$480 
$S960 
$S$1920 
* 
SBSMAX 
* 

* 


*SET MODE 


x 
SMSO0CC 
* 
SMSECH 
SMSROT 
SMSMFR 
SMSEOO 
SMSFRO 
SMSRDO 
SMSIDY 
* 
SMSDLY 
SMSDLO 
SMSDL1 
SMSDL2 
SMSDL3 
SMSDL4 
SMS3DL5 
SMEDLE 
SMSDL?7 
* 
SMLOMD 
SMSOMO 
SMEOM1 
SMBOM2 
SMSOM3 


EQU 
EQU 
EQU 
EQU 
EQU 
FQu 
EQU 
EQU 
EQU 
EQU 


EQU 


CONSTANTS 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


Z'0040! 


z*'0040' 
z*0041' 
Z'0042' 
Z'0043' 
Z'0044' 
z*0045° 
z'0046' 


Z* 0060" 

SMSDLY+0 
SMBSDLY+1 
SMBSOLY+2 
SMSOLY+5 
SMSDLY+4 
SMSDLY+5 
SMSDLY+6 
SMBEOLY+7 


Z2'0068! 

SMSOMD+0 
SMS OMD +1 
SMSOMDF2 
SMBOMD+3 
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LEVEL6G CODING FOR SPEED TABLES 


UP TO SIXTEEN DIFFERENT SPEED SETTINGS 


BASE FOR MODE SETTING COMMANDS 


SET ECHOPLEX 

SET RAW OUTPUT 

MAINFRAME READY 

MAINFRAME LOGICAL END OF OUTPUT 
SET FRIDEN MODE 

READ OUTSTANDING 

IDLE DELAY (CTIME/FILL) 


SET DELAY PARAMETERS 


SET OUTPUT MODE 


Sa Os i a er a a at a + Ee ao ap Pe RE ae yy ey 
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000206 3000 /EJECT 
O0002C7 3001 * @ 
0002C8 3002 *HARDWARE SPECIFIC INFORMATION 
000209 3003 * 
000210 3004 *START OF INTERRUPT VECTOR CIVOO) AND FAULT VECTOR (FVOO) r 
000211 3005 *- +1=1V01 -1=FVO01 
000212 3006 kekkkeeeeee TVECT EQU 2'0080' 
000213 3007 * @ 
000214 3008 *BIT MASK ASSIGNMENTS 
000215 3009 * 
000216 0001 3010 SMKB7 EQU z'00901° @ 
000217 0002 3011 SMKB6 EQU E0002" 
000218 0004 3012 $MKB5 EQU z'oco4' 
000219 0008 3013 SMKB4 EQU z* 0008" © 
000220 0010 3014 $MkKB3 EQU 2° 0070? 
000221 0020 3015 SMK82 EQU Z*O020* 
000222 0040 3016 $MKB1 EQU z*0040' @ 
0002 23 0080 3017 SMKI EQU 20030)" 
000224 0100 3018 SMKR?7 EQU z*0100' 
000225 0200 3019 SMKR6 EQU 2° 0.200" @ 
000226 0400 3020 SMKRS EQU Z'04090' 
000227 0800 3021 SMKRG EQU Z*O800' 
000228 1000 3022 SMKR3 EQU Ze 1000" ® 
000229 2000 3023 SMKR2 EQU z*2000' 
000230 4000 3924 SMKRI EQU z*4000° 
Q0C231 8000 3025 5MKM1 EQU ZL 8000" @ 
000232 3026 * 
000233 7000 3027 SMKR13 EQU BMKRIFSMKR2+5MKR 3 
000234 OFOO 3028 SMKR47 EQU SMKR4O+SMKRS#SMKR64+35MKR7 & 
000235 0070 3029 S$MKB13 EQU SMKB1+SMKB2+3MKB 3 
000236 OOOF 3030 SMKB47 EQU SMKB4t3MKB54+S5MKB6+3MKB7 
000237 9090 3031 S$MKSTD EQU SMKMIT+3SMKI+SMKR34+3MKB3 STANDARD REGISTERS TO SAVE & 
000238 3032 * | 
000239 3033 * 
000240 3034 *IV SAVED REGISTERS OFFSET & 
000241 3035 * 
000242 FFFC 3036 SIVLEV EQU yee a Oe LEVEL ASSOCIATED (SOFT) 
000243 FPF E 3037 SIVTSA EQU Wis SS os i TESAP =) 
000244 0000 3038 SIVDEV EQU 0 DEVICE 
000245 0001 3039 SIVMSK EQU 1 MASK 
000246 0003 3040 SIVP EQU S @ 
000247 0004 3041 $IVS EQU 4 
000248 0005 3042 SIVREG EQU 5 START OF REGISTERS 
000249 0008 3043 S$IVB1 EQU 11 @ 
000256 Q00C 3044 S$IVI EQU 12 
000251 GOS 3045 S1VR1 EQU 19 
000252 0014 3046 SIVM1 EQU 20 & 
000253 0018 3047 SIVT EQU 2? 
e 
© 
e 
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000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
Q000262 
OO0265 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
0092860 
000281 
000282 
000283 
000284 
0002285 
000286 
000287 
000288 
000289 


SOFTWARE 


0000 
0001 
0002 
0003 
0004 
9005 
0006 
0001 
0007 
0003 
0008 
0009 


6000 


303F 
4000 
8000 
0000 
0980 
8030 
00900 


8030 
3090 
0089 
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3048 
$049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
50:79 
3080 
3081 
3082 
3083 


FEIJECT 


x 
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*TRAP SAVE AREA OFFSETS 


* 
$TSAL 
STSAI 
$TSAR3 
STSACM 
$TSAZ 
STSAA 
$TSAP 
$TSAPX 
$TSAB3 
STSATM 
STSAWD 
$STSALN 
* 

* 
$SRGP3 
* 

* 
*LEVEL 
* 
SLVEXI 
$SLVSCH 
$LVEXE 
3LVENT 
$LVDIS 
$LVDSX 
SLVDIE 


* 


EQuU 
EQU 
EQU 
EQU 
EQU 
EQu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


TSAP-STSAA 


-~STSAA 


OWON FO ULREWN ~~ © 


zZ*6000' 


INSTRUCION wORDS 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


Z'803F° 
z*4000' 
Z*8000° 
z'0000' 
2'0080! 
z*8080' 
$LVENT+0 


*MODE REGISTER CONSTANTS 


x 
SMISST 
BMIJSRS 
SM1JSTS 


EQU 
EQU 
EQU 


Z*3080° 
z*38000' 
2*0080' 
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NEXT LINK 

INDICATOR REGISTER 

XR3 

COMMAND 

Z-WORD 

ADDRESS 

P“REGISTER 

P-REG AS ADDRESSED BY TRAP ROUTINE 
XB3 

TEMP WORD 

FOR NON=TRAP ROUTINESs THE TEMP WORD 
LENGTH OF TRAP SAVE AREA 


SREGISTER PRIORITY 3 


SUSPEND, SCAN, AND DISPATCH 

SCHEDULE INTERRUPT,» DEFER 

SUSPEND» SCAN» SCHEDULEs AND DISPATCH 
SCHEDULE» SCANs DISPATCH CRETURN LATER) 
INHIBIT 

SUSPEND,INHIBIT 

CRASH LEVEL INSTRUCTIONS DATA 


SET JUMP TRACE 
RESET JUMP TRACE 
TEST JUMP TRACE 


‘Skee ESeEEOCOeEROR OEMS OD A 


ee 


i 
i 


NE TX 


090290 
000291 
000292 
000293 
0090294 
000295 
000296 
0900297 
000298 
000299 
000300 
000301 
0900302 
000303 
000304 
000305 
000306 
000307 
000208 
000309 
0003106 
000211 


SOFTWARE 


0000 
0001 
0002 
0003 
0004 
0005 
0008 
OOOA 
0010 
0030 
0031 
0036 
0037 
0038 
003C 
GOSE 


CO7E 
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3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
S093 
3099 
3100 
3101 
3102 
os FO Be 
3104 
3105 


/EJECT 


* 


* ASSIGNED LEVELS 


* 
ERRLEV 
WOTLEV 
TSOVLV 
HANGLV 
RTCLEV 
WATLEV 
MCPLEV 
SX25LV 
CPLRLV 
NETLEV 
SBSCLV 
CNSLEV 
> POLEV 
MSGLEV 
DBGLEV 
DEVLEV 
x 


ONESEC 
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EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


HRF ASSEMBLER 


54 
CNSLEV+1 
SYCLEV+t1 
60 
62 


120 
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POWER FAIL AND CRASH LEVEL 

WATCH DOG TIMER LEVEL 

TRAP SAVE AREA OVERFLOW AREA 

STARTUP AND HANG LEVEL 

REAL TIME CLOCK LEVEL 

WATCH COPY LEVEL 

ASYNC MLCP LINE CARD 

SYNC MLCP LINE CARD CUSING X25) 

COUPLER LEVELS (1661741819) 

X25 NETWORK PACKET LEVEL 

SYNC MLCP LINE CARD CUSING BSC) 

CONSOLE HARDWARE LEVEL (BASE FOR SOFTWARE) 
SYSTEMS CONTROL LEVEL 

SYSTEMS MESSAGES LEVEL 

DEBUGGER PRIMARY: SECONDARY=+#1 

LOWEST LEVEL FOR INVERTED SYNCHRONIZATION 


CLOCK IS 120 TIMES PER SECOND (.0083333) 


RE OMS ON Ay ee ee ae ee ARES ORT ee, a gre oe An ta, el 


See B RE 4 


ja Rs cote wet 


NE TX 


000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000226 
000321 
Q0032e 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
COO S3:] 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 


SOFTWARE 


0002 
0003 
0004 
0005 


8006 
4000 
2000 


0000 
9001 
0002 
0003 


8000 
4000 
2000 
1900 
0800 
0400 
0200 
010C 
00380 
0040 
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4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
403? 


/EJECT 


* 


* INPUT 
* 

*FIRST 
CURBUF 
CURLEN 
NSBERR 
MFLAGS 


* 
* 


* INTERNAL 


x 
LTLONG 
IFINAL 
TRPCLK 
* 
* 


09:20:58 


HRF ASSEMBLER 


MESSAGE BUFFER DEFINITION 


BUFFER IN LINK WORD(Q) 


EQU 2 

EQU CURBUF +1 
EGU CURLEN+1 
EQU NSBERR+4 


TO MESSAGE FLAGS (MFLAGS) 


EQU zZ* 8000" 
EQU Z'4000° 
EQU z*2000' 


*MESSAGE STYLE BLOCK DEFINITION 


* 
FRSTCK 
SCNDCK 
INPMAX 
STYFGS 
* 

x 


EQU 0 

EQU FRSTCK+1 
EQU SCNDCK +1 
EQU INPMAX+1 


*DEFINITIONS OF INPUT STYPE BITS 


* 
UNEDIT 
IGNLTL 
IGNNSB 
ESCQTL 
ESCDTA 
BKROTA 
IGNENQ 
IGNLFD 
IGNDEL 
IGNULL 


EQU z'8000' 
EQU z*'4000° 
EQU ereogo” 
EQU z*1000° 
EQY Z*0800' 
EQU Z*0400' 
EQU Z°*O200" 
EQU z*0100° 
EQU Z'0080° 
EQ@U zZ'0040' 


DTSS L-6 HOST RESIDENT FACILITY PAGE QO0OO09 


CURRENT BUFFER ADDRESS 
CURRENT LENGTH 

ERROR COUNTERS 

INTERNAL TO MESSAGE FLAGS 


LINE IS CURRENTLY TOO LONG 
FINAL DELIVERY 
FINAL DELIVERY TRAPS CLOCKING READ 


FIRST CLOCK TO SET 

SECOND (SUBSEQUENT) CLOCK TO SET 
MAX LINE LENGTH 

INPUT STYLE 8ITS 


DATA SHOULD NOT BE EDITED 

LINE TOO LONGS ARE IGNORED CELSE MSG ABORT) 
NO~STOP-BIT ERRORS ARE COUNTED AND FLAGGED 
ESCAPES DONE WITH NO MESSAGE 

ESCAPE IS DATA CELSE IT IS LINE CANCEL) 
BACKARROW IS DATA CELSE IT IS CHARACTER DELETE) 
ENQUIRY IS IGNORED CELSE MSG GENERATED) 

LINE FEEDS IGNORED CELSE TREATED AS DATA) 
RUBOUTS ARE IGNORED CELSE TREATED AS DATA) 
NULLS ARE IGNORED CELSE TREATED AS BREAK) 


eared a Sa nt ts 


fet ENE ERS get 


Say. ands, Shas Moke 1 Sp Se ee 


Rite 


NETX 


000350 
000351 
000332 
090353 
000354 


000355 
000356 


000357 
0003528 


D0 S59 
000359 


000361 
000362 
000363 
000364 
090365 
090366 
000367 
000368 
000369 
O0C27C 
000371 
O00 2% 2 
000373 
000474 
000375 
906376 
000377 
0003738 
000379 
000380 
000381 
00038e 
000383 
900384 
900385 
000386 


SOFTWARE ~SAF 


0918 


0000 
OOFE 
0121 
O12A 
0512 


0857 
0831 
O8DE 
O8CB 


0855 
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10000 
10010 
10020 
10030 
10040 


10050 
10060 


10070 
1002390 


10090 
10100 


10110 
10120 
10130 
10140 
101590 
10160 
10170 
10180 
10190 
10200 
19210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 


/EJECT 


x 
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HRF ASSEMBLER 


* PACKET LEVEL X25 STYLE NETWORK PROCESSOR 


* 


XDEF 


XDEF 


XDEF 


XDEF 


XLOC 
XLOC 
XLOC 
XLOC 
XLOC 
XLOC 


XLOC 
XLOC 


XLOC 
XLOC 


XLOC 
XLOC 
XLOC 
XLOC 
XLOC 


XLOC 


INITNT INITIALIZATION ROUTINE 


XNTOFL sXNTONL »XNTINC » XNTINMsXNTOTM 


NETSET/~NETONL/ZNETBRK/NETRDY 


NETMDS X25 NETWORK USER MODE SETTINGS 


TSKRTINeTSKRTE TASK RETURNS 


SMCPXT/-CINMGX/CLOUTQ,/,CKOUTQ SYNC ROUTINES 


SIVECT/-SERROR LOW CORE 
GETALK-RELBLK-GETMEM,RELMEM,FRBLKS 
GFWBLK-GWORDF -PWORDGsGFBBLK 
GBYTEF-GBYTEB/-GBYTXBsPBYTEGsPBYTXGsSETBPT 


ADDCLK-KILCLK 
ASNTSKs¢BLDTSK 


CLOCK ROUTINES 
TASK ROUTINES 


MGSTRT-MGCOPY/MGSENDs¢MGCHNL»MONNET 
MGCHAR/AMGHEXsMGHEXH 


DEVKOTs/DVGOUT -DVROUTsDQRBRK-DQRDSC 
DVKINP/DVPINP/DVFINPs DVIMSG 
NETINP/DEVMDS 

NETCHK sNETCON/NETCNX/FNETBK 

SYSCON ADD USER TO SYSTEM 


MSCURB 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0010 


ee Sl ey ete Poa ta Sas, <i sk 


NET X 


000387 
0003868 
000389 
000390 
000391 
000392 
900393 
000394 
000395 
900396 
000397 
090398 
000399 
QO0400 
000401 
000402 
000403 
000404 
N00405 
0900406 
000497 
000408 
000409 
000410 
000411 
00047172 
000413 
099414 
000415 
000416 
000417 
000414 
000419 
900420 
000421 
000422 
000423 
N00424 
000425 
000426 
000427 
000428 
000429 
0004306 
O0G4 31 
000432 
000433 
000434 
000435 
000436 
000437 
000438 


SOFTWARE 


0002 
0005 
0008 
N909 
DOOA 
0008 
O00C 
0000 
OOOE 


JOOF 


OOOF 


9010 


0070 
9011 


0012 
0013 
9014 
0015 
0016 
J017 


00128 
0019 
BOTA 
0018 
O01C 
0019 
OOTE 
OOF 


0020 
0021 
0022 
QU23 
0024 
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10370 
10380 
10390 
19400 
10410 
10420 
10430 
10440 
19450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10589 
10590 
10600 
10610 
19620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 


eS = Ee 
: 
: 
| 
| 


/EJECT 


* 


*DEVICE BLOCK DEFINITION (PROTOTYPE) 


* 


*LEAVE ENOUGH ROOM FOR PRIORITY 


* 


SOFTQ 
OUT 
DEVFGS 
TSKINF 
TSKRET 
INPLEV 
INPMSG 
TCTLBK 
OUTLEN 
* 
DEVBKL 
* 

* 


*NETWORK USER 


* 


HOSTNT 


* 
NETBKL 
* 
* 


*DEVICE BLOCK 


* 
IBFMAX 
-PFLAGS 
* 
PCLFGS 
GENCLK 
CLKVAL 
MOTHER 
CIVDEV 
DSSTAT 
x 
IMSGFB 
IMSGFP 
IMSGLB 
IMSGLP 
IMSGMB 
IMSGML 
IMSGNB 
IMSGCB 
* 
ICCBCT 
ECCBEST 
IBFCNT 
ICTLCD 
IERRCT 


09:20:58 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQYU 


EQU 


EQU 


EQU 


EQU 
EQU 


EQU 
EQU 
EQuU 
EQU 
EQYU 
EQuU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EGU 


EQU 
EQU 
EQU 
EQU 
EQU 


| 
| 
| 


BLOCK 


HRF ASSEMBLER 


2 
SOFTQ+3 
OUTQ+3 
DEVFGS+1 
TSK INF +1 
TSKRET+1 
INPLEV+1 
INPMSG+1 
ICTLBK+1 


OUTLEN+1 


DEVBKL 


HOSTNT+1 


DEFINITION FOR 


NETBKL 
IBFMAX+1 


PFLAGS +1 
PCLFGS#+1 
GENCLK+1 
CLKVAL+1 
MOTHER+1 
CIVDEV+1 


DSSTAT#1 
IMSGFB+1 
IMSGFP+1 
IMSGLB+1 
IMSGLP+1 
IMSGMB+1 
IMSGML+1 
IMSGNB+1 


IMSGCBt+1 
ICChCE+ 
ICCBST+1 
IBFCNT+1 
ICTLCD+1 


DTSS L-6 HOST RESIDENT FACILITY PAGE OQO011 


(CHANNEL) AND THREAD 


USER QUEUES BASED ON LEVEL NUMBER 
OUTPUT MESSAGES QUEUED 

FLAGS USED TO SUPPORT DEVICE 
POINTER TO TASK ROUTING 

TASK RETURN ADDRESS 

LEVEL OF USER WANTING INPUT 
CURRENT INPUT MESSAGE 

CONTROL BLOCK FOR INPUT 

LENGTH OF ACTUAL OUTPUT TO BE SENT 


LENGTH OF PROTOTYPE FOR DEVICE 


HOST NETWORK BLOCK ADDRESS 


LENGTH OF NETWORK USER DEVICE BLOCK 


SYNCHRONOUS PORTS 


INPUT MESSAGE BUFFER MAX 
PROTOCOL FLAGS 


PROTOCOL USAGE FLAGS 

GENERAL PURPOSE CLOCKS 

LAST VALUE LOADED INTO CLOCK 

MOTHER BOARD INFORMATION BLOCK 

LAST ACTUAL INTERRUPT DEV WORD 

BITS O-7=LAST DATA SET» 8-15=SPEED CODE 


FIRST IN CHAIN OF INPUT 
eeAND POINTER 

LAST IN CHAIN OF INPUT 
eo»AND POINTER 

START OF MESSAGE 

MESSAGE LENGTH 

NEXT BUFFER TO BE RETURNED 
LAST BUFFER SUPPLIED 


INPUT CCB COUNT 

INPUT CCB STATUS 

BUFFERS CURRENTLY USED FOR INPUT 
CONTROL CODE LAST RECEIVED 

INPUT ERROR COUNTER 


ee0e50eeeeeeeeeeee & © © 8e 8 ele 


| 
: 
: 
: 


Se of 


OE ee eee 5 TS Se ES Pee ee ee) ee EO, oe te es Oe eS ee 


Ret eee a ee 


: ae E 2 sae GRE ah, as 


NETX 


000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
900448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 


SOFTWARE 


O25 
0026 
0027 
0028 
0029 
OO2A 
0028 
J02C 


0020 
OO2E 
OO2F 
9030 


0031 
0032 
GOS3 
0034 


0040 
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10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
LOS90 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 


* 
OMSGFB 
OMSGFP 
OMSGCB 
OMSGCP 
OMSGLB 
OMSGLP 
OMSGM8 
OMSGML 
* 

OcCBCT 
OCCast 
OCTLCD 
OERRCT 
* 

X25CMD 
X25FGS 
SPCMSG 
* 


S.TEMPS 


* 


SMCPBL 


G93 205 58 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


EQU 


HRF ASSEMBLER 


IERRCT+#1 
OMSGFBt1 
OMSGFP#1 
OMSGCB+1 
OMSGCP +1 
OMSGLBt1 
OMSGLP+1 
OMSGMBt1 


OMSGML +1 
OCCBCT+1 
OCCBST+1 
OCTLCD+1 


OERRCT +1 
X25CMD+1 
X25FGS+1 


SPCMSG+1 


STEMPS 412 
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FIRST IN CHAIN OF OUTPUT 

eo eAND POINTER 

CURRENT IN CHAIN OF OUTPUT 

eo eAND POINTER 

LAST IN CHAIN OF OUTPUT 

eeAND POINTER 

START OF REMAINDER OF MESSAGE 
LENGTH OF REMAINING MESSAGE 


OUTPUT CCB COUNTER 

OUTPUT CCB STATUS 

CONTROL CODE LAST SENT 

OUTPUT ERROR COUNTER 

X25 COMMAND STORAGE 

X25 FLOW CONTROL BITS 

X25 FRAME REJECT MESSAGE 

TEMPORARIES FOR SYNC LOGICAL ROUTINES 


LENGTH OF SYNC BLOCK 


ee re ky eS 


ari i a | 


TS eS Oe RR ee CS ee 
wie oat Sec dy 28 ~ 2H Ge Se 


NETX 


000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 
000482 
000483 
000484 
000485 
090486 
000487 
000488 
000489 
000490 
000491 
OC0492 
000493 
D00494 
000495 
000496 
000497 
000498 
O00499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 


SOFTWARE 


8000 
4000 
2000 


0800 
0400 
0200 
0100 


8000 
4000 
2000 
1000 


0300 
0400 
0200 
0100 


0080 
0040 
0020 
0010 
0008 


0004 


0060 
0040 
0020 
9016 


9008 
0004 
0002 
0001 


-SAF 


1981/09/17 


11110 
11120 
11130 
11140 
17150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
114-380 
11390 
11400 
11410 
17420 
11430 
11440 
11450 
171460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
171540 
11550 
11560 
14570 
11580 
11590 


/ESECT 


* 


*COMMON DEFINITIONS FOR DEVICE FLAGS 


* 
SONOFF 
OFLTSK 
SYNASN 
x 

LINKUP 
RSTRTM 
RSTRTR 
RSTRTX 


* 
* 


*COMMON DEFINITIONS 


* 
SYNCRD 
HAFDUX 
TRNSMG 
DIRCON 
x 

INHUNG 
IDLEOT 
X25PCL 
BSCP CL 


* 
* 


09:20:58 


EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


*X25 STATES 


* 
LONMOD 
LSUMOD 
LUPMOD 
LRSMOD 
LDSMOD 
* 

DCEDTE 
* 

* 


EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


*BSC STATES 


* 

TRNSLT 
CTLMOD 
RCVMOD 
XMTMOD 
x 

SP:2:7O0 
$P3780 
SPHASP 
SPDUAL 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


HRF ASSEMBLER 


z*8000' 
z*4000' 
z*'2000° 


2°0:300" 
Z'0400' 
Z* 0200." 
z*0100° 


FOR PFLAGS 


z*8000' 
z'4000° 
zZ* 2000" 
z* 1000" 


Zz'0800' 
Z*0400! 
2°O200" 
z*°0700' 


Z*'O0080' 
Z*O0040' 
LVVOZY" 
270 OG. 
Z'O008' 


z*0004° 


Z'0080' 
z*0040' 
z*0020' 
Z* 0010" 


zZ*o0o08' 
2*0004° 
Z*0002* 
Z*0001° 


DTSS L-6 HOST RESIDENT FACILITY 


(DEVFGS) 


ONLINE/OFFLINE 
OFFLINE TASK HAS BEEN SENT 
SYNC/ASYNC SWITCH 


(X25) LINK IS IN LOGICALLY UP STATE 
(X25) PACKET LEVEL NEEDS RESETTING 
(X25) RESTART RECEIVED 

(X25) RESTART SENT 


CPROTOCOL/SETTINGS) 


THIS PORT IS ON SYNC LINECARD 
THIS CONNECTION IS USING HALF DUPLEX 


MESSAGES 


LINE IS DIRECTLY CONNECTED TO EQUIPMENT 


WE ARE HUNG UP WAITING FOR INPUT RQST 
WE ARE IDLE IF OUTPUT SHOULD ARRIVE 
X25 PROTOCOL 

BYSYNCHRONOUS PROTOCOL 


LINK DOWN 
LINK SETUP 


LINK UP 


LINK RESET 
LINK DISCONNECTING 


ACTING AS DCECON) OR DTECOFF) 


DATA IS TRANSLATED (AEs E~A) 
CONTROL STATE 
RECEIVE STATE 


TRANSMIT 


PROTOCOL 
PROTOCOL 


PROTOCOL 


PROTOCOL 


PAGE 0013 


ARE TRANSPARENT 


STATE 


IS FOR 2780 
IS FOR 3780 
IS FOR HASP 
IS DUAL LINES 


| 
7 
: 
| 
| 
: 
| 
| 
3 
| 
3 
| 
: 
: 
| 


ee he oe at ten Mee ae a 


NETX 


000510 
000571 
O0C512 
000514 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
009523 
000524 
006525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
009535 
900556 
GCO05 57 
000538 
900539 
000540 
000541 
000542 
900543 
090544 
000545 


SOFTWARE 


8000 
4000 
2000 
1000 


0800 
0400 
0200 
0100 
0080 
0040 
0020 
0010 
0008 
0004 
0002 
9001 


0989 
0040 
0029 
0010 
000% 
0004 
0002 
0001 
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11600 
11610 
11620 
11630 
11640 
117650 
11660 
11670 
11680 
11690 
11700 
11710 
PEt20 
11430 
11740 
meee. 6, 
11760 
11770 
11780 
11790 
11800 
11810 
11820 
11830 
17840 
11850 
11360 
11870 
11880 
11890 
11900 
VAOTO 
11929 
11950 
11940 
171950 


JEJECT 


* 


*COMMON DEFINITIONS FOR PCLFGS 


x 
FRCOFL 
DATAOK 
RUNRCV 
RUNXMT 


* 
* 


09:20:58 


EQU 
EGU 
EQU 
EQU 


*X25 STATES 


* 


IDLCLK 
PRMSND 
TORCVY 
POLSNT 
PRMPOL 
SNDPOL 
SNDREJ 
SNDRNR 
REJSNT 
PRMREJ 
RNRSNT 
PRMRNR 
* 

* 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


*BSC STATES 


x 

MDABRT 
ENDATA 
SENTTD 
BI?PDNG 
WACKNG 
MBACKG 
CBACKB 
NXTACK 


EQYU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
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z'8000° 
z*4000° 
z*2000' 
2° 7000" 


zZ*0800° 
2.0400" 
Z'O0200° 
z'0Q100° 
z*'0080' 
Z*0040' 
Z*0020' 
rien OE Bia Gh 
Z* 0008" 
Z*0004' 
Z* 0002" 
z*0001° 


Z'0080' 
z*0040° 
z*o020' 
z*0010° 
z'0008' 
z'0004° 
z‘o002' 
ZOO" 


CINTERNAL 
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TO PROTOCOL) 


WE ARE BEING FORCED OFFLINE 

DATA TRANSFERS ARE ALLOWED OR IN PROGRESS 
RECEIVER IS RUNNING 

TRANSMITTER IS RUNNING 


CLOCK SET TO BREAK UP MONOTONY 

MESSAGE CAME FROM PRIMARY/SECONDARY 

IN TIMER RECOVERY CONDITION 

PRIMARY SENT POLLED COMMAND 

PRIMARY WOULD LIKE TO SEND POLLED COMMAND 
SECONDARY SENT POLLED COMMAND 
SECONDARY DETECTED OUT OF SEQUENCE 
SECONDARY INFORMED US OF UNWILLINGNESS 
WE INFORMED SECONDARY OF REJECT 

WE WANT TO REJECT RECEIVED BLOCK 

WE INFORMED SECONDARY OF UNWILLINGNESS 
WE ARE NOT READY TO ACCEPT INPUT 


ABORTING THIS MODE 

THIS IS LAST PHYSICAL BUFFER 
SENDING TEXT DELAY 

IN BIDDING SEQUENCE 

IN WAIT RESPONSE CYCLE 

RESPONSE MUST BE CORRECT ACK 
RESPONSE COULD BE INCORRECT ACK 
OFFSEVEN ACK...ON=0DD ACK 


. 
) 


. ee 
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@ NeETX SOFTWARE -SAF 1981/09 -20- 
/09/17 09:20:58 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE 0015 e 
ae 11960 /EJECT 
@ ote 11970 * 
| 000549 er *TYMNET/X25 COMMON DEFINITIONS @ 
* 
| 000550 0034 
| @ ae aa 12000 MSGBUF EQU STEMPS MESSAGE BUFFER 
| 12010 MSGPTR EQU MSGBUF +1 @ 
000552 ; MESSAGE POINTER 
036 12020 MSGLEN EQU MSGPTR+1 
@ 000553 12030 * MESSAGE LENGTH 
VCUSR EQ 3 
000555 0038 io0en LeTUSk SG ee USER LAST SERVICED e 
6 000556 cee SVCUSR#1 LAST USER TO SERVICE 
12060 ADDORSS EQU LSTUSR+1 A 
000557 A03A are CoMne ane eee DDRESS OF MESSAGE USER e 
He 40080 « COMMAND CODE 
eo ane 12090 *xX25 (RE-) DEFINITIONS 
: 000561 0038 oils . e 
e 000562 9 ne een Eau COMAND+1 FIRST BUFFER IN MESSAGE 
nage es ets 12120 CONQ@ EQU MSGHDR+1 CONNECTION MESSAGES 
s00eee are HETUSK EQU CONQ+3 MAP BLOCK IN USE e 
-@ 000565 OO0E 12150 NETMAP EQ 
& U h 
: 000566 o00¢ ae sa ane Sones MAP OF NETWORK USERS e 
‘3 000567 12170 * SG RE-REINIT CLOCK . 
© bo0869 12180 + 
: naecoe ee *ADDITIONAL DEVICE FLAG (DEVFGS) DEFINITIONS @ 
= c * 
\@ 000571 0020 12210 1 | 
000572 9010 oes ae a oe (NETWORK) OUTPUT FILL TASK SENT e 
ae Pe 0 (NETWORK) PROCESSING FOR CLOCK 
7 000574 00380 12240 BRKACT 
EQU z*'o080o' 
000575 3040 15960; DORDTA Si age: ae BREAK ACTIVE e 
000576 9020 oo ose Gk a neers ER) DISCARD ANY DATA RECEIVED 
e 090577 oo a (NETUSER) FLUSH QUALIFIED MESSAGES 
000578 
900579 aes 12280 *NOTE:DONT VARY THESE FROM TYMNETS td] 
12290 OTPURE EQU z*oo08' (NETUSER) OUTP 
& 000580 0004 12300 OTWAIT EQU 27*0004' UTPUT SHOULD BE SENT PURE 
000581 9002 (oa jG ate ae oa ncees eae OUTPUT MUST WAIT e 
000582 9001 oon Geceas etd ea NETUSER) IGNORE L/F IF FIRST IN OUTPUT QUEUE 
® (NETUSER) INPUT CAUSING OUTPUT TO WAIT 
e 
@ 
a 8 
@ 
@ 
e 
@ 
e 
e 
@ 
@ 
& 
@ 


| @ 
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@ NeETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0016 & 
000583 12330 /EJECT 
® 000584 12340 * @ 
000585 12350 *DEFINITIONS OF NETUSR PAIR 
| 000586 12360 * 
@ 000587 12370 *PRIMARY FLAGS IN Q r 
| O0005&6& 0001 12380 NETFGS EQU 1 ADDITION FLAGS 
000589 0002 12390 TOCLOK EQU 2 TIMEOUT CLOCK 
@ 000590 0003 12400 RRCLOK EQU 3 RECEIVE READY CLOCK e 
000591 0004 12410 NETBLK EQU 4 DEVICE BLOCK OF NETWORK 
000592 0005 12420 NETADR EQU 5 ADDRESS ASSOCIATED WITH THIS BLOCK 
) 000593 0006 12430 NTINFO EQU 6 CAND 7) CONNECT INFORMATION @ 
000594 12440 * 
000595 EOOO0 12450 X$MODE EQU z*eE000! STATE OF LINE 
@ 000596 12460 * & 
000597 2000 12470 XSTWTG EQU z'2000! DTE WAITING FOR CALL CONNECTED 
000598 4000 12480 X$CWTG EQu z*4000' DCE WAITING FOR CALL ACCEPTED 
e 000599 6000 12490 X$TCLR . EQU z*6000' DTE WAITING FOR CLEAR INDICATION @ 
000600 8000 12500 X$CCLR EQU z*8000° DCE WAITING FOR CLEAR CONFIRMATION 
000601 AQ0O 12510 XS$ITTX EQY z*acoo? CONNECTION IN INFORMATION TRANSFER STATE (DTE) 
@ 000602 cO00 12520 XSICTX EQU 2° C050" CONNECTION IN INFORMATION TRANSFER STATE (COCE) @ 
ri 000603 12530 * 
5 000004 1000 12540 RSPOND EQY z*1000° SEND COMMAND/RESPONSE (CI-CC-OI-0C/II-ZIC) 
@ 000605 0800 12550 OUROWN EQU z*0800' CONNECTION INITIATED BY OURSELVES @ 
000606 0400 12560 DCERNR EQU z*0400° DCE INDICATED INABILITY TO RECEIVE 
- 000667 12570 * 
@ 9090608 N01C¢ 12580 DTEPSN EQU Z°001C* DTE PACKET SEQUENCE NUMBER @ 
; 000609 0002 12590 DTEPSF EQU Z* 0002" DTE PACKETS FILLED WINDOW 
0900610 9003 12600 DTEPSC EQU z'0003' DTE PACKET COUNT 
e@ 000611 0001 12610 DTEPSI EQU z'0001' DTE PACKET COUNTER e 
000612 12620 * 
000613 12630 * 
@ 0090614 12640 *DEFINITIONS OF NETFGS ) 
090615 12650 * 
9000616 8000 12660 DTERNR EQU z7*3000' RECEIVE NOT READY SENT 
@ 000617 4000 12670 DTEHNG EQU z'4000° NOT READY TO RECEIVE NEXT PACKET & 
000618 2000 12680 DTECLK EQU z*2000' RECEIVE READY CLOCK RUNNING 
000619 12690 * 
e@ Q00420 01C0 12700 DCEPSN EQU z'01cO' DCE PACKET SEQUENCE NUMBER e 
000621 0038 12710 DCEPSX FQU Z*0038! DCE PACKET WINDOW SIZE 
000622 0007 12720 DCEPSF EQU z*0907' DCE PACKETS FILLED 
) 000623 0001 12730 DCEPSI EQU z*0901° DCE PACKET COUNTER @ 
000624 12740 * 
| 000625 0012 12750 DCEPXX EQU z'0012' INITIAL DCE WINDOW SIZE SET TO (2) 
# © 
® @ 
@ @ 
@ @ 
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NETX 


000626 
000627 
000628 
000629 
000630 
000631 
000532 
000433 
000634 
000635 
000636 
090637 
000638 
000639 
000640 
000541 
0004642 
000643 
000644 
000645 
000646 
900647 
000648 
000649 
000650 
000651 
000652 
000653 
000654 
000655 
000656 


SOFTWARE 


0008 
OOOF 
0013 
0017 
0023 
Od27 
OOFB 
OOFF 


0001 
0005 


0010 


0005 


0080 


9800 


0001 
OC0e 
0003 
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12760 
12770 
12780 
12790 
12800 
12810 
12820 
12830 
12840 
12850 
12860 
12870 
12880 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
e270 
12980 
12990 
13000 
13010 
13020 
13030 
130490 
13050 
13060 


/EJECT 


* 


O92 20.256 


HRF ASSEMBLER 


*X25 PACKET LEVEL COMMANDS 


* 
$X25C1 
$BX25CC 
$X2501 
$X250C 
$X2511 
$X251C 
BX25RI 
$X25RC 
* 
BX25RR 
BX25SNR 
k 
$X25MB 
x 
* 


HDRLEN 
* 
NETMPL 
* 
X25TIP 
* 
x 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


EQU 


EQU 


EQU 


EQU 


z*'000B' 
Z'OOOF' 
z*0013' 
z*0917' 
L* 0025" 
BVOC? 
Z*OOFB* 
Z'OOFF' 


z*0001° 
Z£° 0905," 


z°OO10! 


5 
128 


z*0800' 


*DEVICE MESSAGE CONSTANTS 


* 
XINNSB 
XINESC 
XINDEL 


EQU 
EQu 
EQU 


~N — 


DTSS L-6 HOST RESIDENT FACILITY PAGE 


INCOMING CALL 

CALL ACCEPTED 

CLEAR INDICATION 

CLEAR CONFIRMATION 
INTERRUPT INDICATION 
INTERRUPT CONFIRMATION 
RESTART INDICATION 
RESTART CONFIRMATION 


RECEIVE READY 
RECEIVE NOT READY 


MORE DATA QUALIFIER 


ADR»~CMD-GID-LCNA~CMD IN TEXT 


NETWORK MAP LENGTH 


TIPID CONVERTS TO ‘AQ* 


INPUT FRAMING ERROR DETECTED 
WE ESCAPED USERS INPUT 
USER DELETED INPUT 


0017 


NETX SOFTWARE -~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L=-6 HOST RESIDENT FACILITY PAGE 0018 
000457 13070 /EVECT 
000658 13080 * 
000E59 13090 *DATA QUALIFIERS 
000660 13100 * 
000661 0000 13110 QS$PRMS EQu z'oco0o' PARAMETERS 
000662 0001 13120 Q@SIDSC EQU z*o001! INVITATION TO CLEAR 
000663 0002 13130 QS$STPM EQU z* 0002" SET PARAMETERS 
000664 0003 13140 QS$IBRK EQU z*0003' INDICATION OF BREAK 
OOCéES 0004 13150 QSRDPM EQU z'0004° READ PARAMETERS 
000666 6005 13160 QSFLAW EQU Z° 0005" ERROR IN PROCESS 
000667 0006 13170 QSSRPM EQU zZ'O0C06° SET AND READ PARAMETERS 
000668 13180 * 
O00669 0007 13190 QS$CMAX EQU z'oc0o7' FIRST INVALID PARAMETER 
O000E?70 13200 * 
000671 13210 * 
O000E7e 13220 *PARAMETER VALUES 
000673 13230 * 
000674 0000 13240 PSMARK EQU z*oo00' NATIONAL MARKER 
J00675 0004 13250 PSTIMR EQU z'0004' INTERVAL TIMER 
CI0676 0007 13260 PSSBRK EQU 2° 0007" SET BREAK 
Q00677 9908 13270 PSOSOT EQU Z* 0008" DISCARD OUTPUT 
000678 OOOA 13280 PSLFLD EQU Z'OOOA' SET LINE FOLDING 
C90679 0008 13290 PSRSPD EQU z*ooos' READ SPEED 
000680 13300 * 
000681 13310 *PARAMETER COMMAND PAIRS 
900682 13320 * 
000683 0008 13330 PMSRSP EQU Z'OOO00O'+PS$RSPD READ SPEED 
000684 THOS 13340 PMSBRK EQU Z*°1500'+P3SBRK SET BREAK TO STANDARD 
090685 0008 13350 PMSENO EQU Z*O000*+PS$DSOT SET DISCARD OUTPUT FALSE 
000686 0108 13360 PMSDSO EQU Z*0100'+PSDSO0T SET DISCARD OUTPUT TRUE 
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NETX 


000637 
0006388 
N00689 
090699 
000691 
000692 
000693 
000694 
000695 
000696 
000697 
000698 


000699 
000700 
000791 

000702 
000703 
000704 
000705 
000706 
900707 
000708 
000709 
000710 
000711 

000712 
000713 
000714 
000715 
000716 
000717 
000718 
000719 
000720 
000721 

000722 
000723 


000724 


SOFTWARE 


FCC4 
BDD7 
0900 
8747 
3747 
EBSd 
5€30 
82C4 
8090 
9530 
B380 
OF 8&0 


EB80 
B380 
8744 


9Cb? 
AB80 
0060 
0630 
0930 


E804 
FCD4 
D380 


CO2A 


0012 
0000 
CCD? 


8380 


EGS 
5457 
4652 
4B 20 
6449 
5343 
4SEGE 
4E4S 
4354 


OOOF 


0008 
0011 
0053 


0008 


0000 


0033 
00900 
OOOF 


0906 


O8FC 
O3FC 


0000 


N000 


0009 


< 
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13370 
13380 
13390 
13400 
13410 
13420 
13430 
13440 
13450 
13460 
13470 
13480 


13490 
13500 
13510 
13520 
13530 
13540 
13550 
13560 
VS OCO 
13560 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 
1.5690 
Tocog 
13710 
13720 
13730 


13740 


EJECT 


* 


09:20:58 


HRF ASSEMBLER 


* X25 STYLE NETWORK IS GOING OFFLINE 


* 


XNTOFL 


% 


* 


* 


* 


a> 


* 
NTDSMG 


NTOSML 


EQU 


B7 -B4+HOSTNT 

=B7 

we 

B7+DEVFGS 
B7+PFLAGS 
BO/XNETOF 
RS/NETLEV 
B4+DEVFGS,SONOFF 


el 
B3,BLDTSK 
-5 


B6eXNTOFF 
B3BLDTSK 
B4+hHOSTNT 


B1,=B7 
B2esNETQ 


NETERR 
NETERR 


R6+B4 

B87 ,=34 
BSs4MGCHNL 
<NTOSMG 
NTOSML *2 
Z* 0000" 
B4,=687 


TSKRTN 


"NETWORK DISCONNECT 


$-NTDSMG 


DTSS L-6 HOST RESIDENT FACILITY 


USE NETWORK DEVICE BLOCK 


NEVER DEVELOPED...MUST BE SIGN OFF CALL 


FORCE OFFLINE 


CLEAR ALL USERS FROM NETWORK 


ARE WE REMAINING UP? 


NO -- DO THINGS DIFFERENTLY 


BUILD TASK 


SEND COMPLETELY OFF 


NO LONGER A NETWORK CONNECTED 


REMOVE PACKET NETWORK 
FROM NETWORK QUEUE 


HANDLE FUNNY MACHINE 
HANDLE FUNNY SOFTWARE 


PRINT CHANNEL MESSAGE 


SEND NETWORK DISCONNECT MESSAGE 


SEND MESSAGE AS IS 
RESTORE DEVICE BLOCK 


USE NORMAL RETURN 


PAGE 0019 
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@ ver SOFTWARE “SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0020 @ 
000725 13750 /EJECT 
e@ 000726 13760 * @ 
000727 13770 * LINK OF X25 STYLE NETWORK HAS BEEN RESET 
| 000728 13780 * 
@ 000729 9033 ctDd? 13790 XNTOFF LDB B4,=B7 ADJUST REGISTERS @ 
000730 0034 8DC4 QOOE 13800 CMN B4+NETMAP IF MAP NEVER ASSIGNED THEN EXIT 
000731 0036 0900 T 13810 BE 1 RELEASE NETWORK STORAGE 
@ 000732 13820 * @ 
000733 O37 B380 OOS5A 13830 LNJ B3,CLRNET CLEAR NETWORK USERS 
000734 13840 * 
@ 000735 0939 9CC4& OOOE 13850 LOB B1eB4+NETMAP RELEASE NETWORK MAP @ 
000736 0038 ABC1 0086 13860 LAB B2,B81+NETMPL+7-1 
000737 OO3b 68380 0000 X 13870 LNJ B3,RELMEM 
e 0067323 13880 * @ 
000739 OO3F 8380 0000 X 13890 LNJ B3,CINMGX CLEAR PENDING INPUT MESSAGES 
| 000740 0041 4CFF 13900 LDV R4,-1 
@ 000741 0042 0380 o000 x 13910 LNJ BS,CLOUTQ CLEAR PENDING OUTPUT MESSAGES @ 
000742 13920 * 
000743 O0G44 9c¢C4 0018 13930 LDB B1,B4+IMSGFB RETURN INPUT MESSAGE QUEUE 
.@ 000744 0046 E380 OO00C X 13940 LN J B6rsFRBLKS & 
: 000745 0048 9cc4 0025 13950 LDB B1,B4+0MSGFB RETURN OUTPUT MESSAGE QUEUE 
000746 004A £380 0000 x 13960 LNJ B6eFRBLKS 
& 000747 13970 * @ 
000748 O004C 9CDd4 13980 .1 LDB B1,=B4 RELEASE NETWORK DEVICE BLOCK 
: 000749 004D ABC1 0046 13990 LAB B2,B1+SMCPBLt+7-1 . 
-@ 000750 O04F B380 0000 x 14000 LNJ B3,RELMEM ) 
i 000751 14010 * 
000752 9051 &380 9000 X 14020 .2 JMP SMCPXT WAIT FOR SOMETHING INTERESTING TO HAPPEN 
| 000753 14030 * 
© 000754 | 14040 * e 
000755 14050 * LINK OF X25 STYLE NETWORK HAS BEEN RESET 
e 000756 14060 * ) 
000757 O052 CCD? 14070 .XNETOF LOB B4,=B7 ADJUST REGISTERS 
OO075& 0054 sSNc4G OOQOE 14080 CMN B4+NETMAP IF MAP NEVER ASSIGNED THEN EXIT 
@ 000759 9054 0978 sf 14090 BE 22 & 
000760 0057 B380 OOSA 14100 LNJ B3,CLRNET CLEAR NETWORK USERS 
000761 O0OSY OFFB8 T 14110 B 2 THEN VAPORIZE 
@ @ 
© & 
@ @ 
@ ®@ 
@ @ 
® @ 
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000762 
900763 
N00764 
Q00765 
000766 
000767 
000768 
000769 
VOO77C 
000771 
OOC772 
000773 
000774 
O00? 75 
VOC To 
O0C777 
000778 
GOOy 79 
000780 
000781 
COG?8&2 
000783 
000784 
000785 
O000786 
0007S? 
000788 
000789 
00C790 
000791 
000792 
000793 
00C794 
OCC795 
000796 
000797 
000798 
000799 
O008&0G 
000801 
000802 
000803 
000804 
000605 
00C806 
000607 
000808 
000809 
000810 
000811 
000812 
000813 


OOSA 
O005¢C 


OOSE 
OUGL 
0061 
0062 
0064 


Q065 
OC66 
C068 
OO064 


CO6C 
O06D 
OC6F 


0070 
0072 


CO?74 
0076 
0078 


0079 
0078 
QC7C 
007D 
GO7F 
OC&G 
0082 
0084 
CO86 
OC8& 
OO8A 
QO8C 


OO08b 
OC8E 
OC8F 
9091 
OC9e 
0093 
0094 


UC9S 


SOFTWARE 


BFC4 
6380 


ABC4 
8755 
0062 
Cé80 
0200 


CCD1 
D380 
03380 
D330 


9C D4 
BZ80 
OE EF 


E&70 
EF44 


E8C4 
AB44 
2600 


ACC4 
&DA2 
0978 
9C80 
GEA2 
9FC4S 
D380 
B380 
B380 
9CC4 
B380 
OFES 


E804 
FCD4 
D380 
0097 
OOOE 
0000 
CCD? 


&3CC 


OOOA 
O22F 


0002 


O8FC 


000C 
O0CO0G 
0000 


OcOC 


0080 


0039 


0039 


0039 


OOOE 


O8FB 


OOF 
07BC 
0797 
O79C 
OO3F 
00006 


0000 


OOOA 


>< 


>< 
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14120 
46730 
14140 
164150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 
14230 
14240 
14250 
14260 
14270 
14280 
14290 
14300 
14310 
14320 
14330 
14340 
14350 
14360 
14370 
14380 
14390 
14400 
14410 
14420 
12250 
14440 
14450 
14460 
14470 
14480 
14490 
14500 
14510 
14520 
14530 
14540 
14550 
14560 
14570 
14580 
14590 
14600 
14610 
14620 
14630 


/ESECT 


* 
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*ROUTINE TO CLEAR ALL NETWORK USERS 


x 


CLRNET 


* 


a 


* 


* 


STB 
LNJ 


LAB 
CL 
DQH 
BCF 
BL 


LOB 
LNJ 
LN J 


B3,B44*TSKRET 
B3,RSTRNK 


B2,B4+SOFTQ 
R5 


NETERR 
ne 


B4,=B1 

B5,DQRDSC 
BS/DEVKOT 
BS5S,DVKINP 


B1,=B4 
B3,FNETBK 
] 


R6=128 
R6,B4+ADDRSS 


B&+ADDRSS 
R2eB&4t+ADDRSS 
Reve 


B2/B4+NETMAP 
B2+R2 

wn 

B1,ZERO 
B1,B2tR2 
B1,B4+NETUSR 
BS/CLRUSR 
B3,KTOCLK 
B3,/KRRCLK 
B81,B4+NETUSR 
B3,RELBLK 

<s 


R6/B4 
B7s=B4 
BS/MGCHNL 
<NTLOMG 
NTLDML*2 
z' 0000! 
B4,=B7 


(B4+TSKRET) 


DTSS L-6 HOST RESIDENT FACILITY PAGE QO021 


SAVE RETURN IN AVAILABLE SLOT 
RESET RE-INIT CLOCK 


SCAN FOR ACTIVE USERS 

ANY WILL DO 

FIND NEXT USER 

HANDLE FUNNY MACHINE 

NONE LEFT -~ INFORM OPERATIONS 
COPY OVER 

GIVE OFFLINE RETURN TO ALL PARTIES 
KILL ANY AND ALL QUEUED OUTPUT 
KILL ANY REMAINING INPUT 

FREE BLOCK 

LOOP UNTIL ALL USERS GO AWAY 


SCAN BACK THROUGH ALL USERS 


ONE LESS IN LOOP 

IF LOOPED THEN EXIT 

CREATE POINTER TO VIRTUAL CONNECTION 
NONE FOUND 


LOAD AND RESET CELL 


FREE ANY USER STORAGE FOR THIS PORT 
RESET TIMEOUT CLOCK 

RESET RECEIVE RESPONSE CLOCK 

FREE NETWORK USER BLOCK 

LOOP FOR ANOTHER 


PRINT CHANNEL MESSAGE 


SEND LINK RESET MESSAGE 


SEND MESSAGE AS IS 
RESTORE DEVICE BLOCK 


RETURN TO CALLER 


eo e-eeeeeeee?eeeste#erteeeeeeeeeese ®e@e 


in 


ee Ce pet eT Ne 


Pa fey 


F ee Ry aa elt sooo ee 
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NETX 


000614 


000815 


0097 
0098 
N099 
OO9A 
0098 
QO9C 
0095 


SOFTWARE 


5832 
3520 
4049 
4E4B 
2052 
4553 
4554 


0007 
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14640 NTLDMG 


14650 NTLOML 


09320338 


DC 


EQU 


HRF ASSEMBLER 


*X25 LINK RESET' 


$-NTLOMG 


HOST RESIDENT FACILITY PAGE OO022 
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NETX 


000816 
000817 
000818 
900819 
000820 
000821 
000822 
000823 
000824 


000825 
000826 


000827 
000828 
000829 
000830 
000831 
000832 
000833 
000834 
000835 
000836 
000837 
000838 
000839 
000840 
000841 
000842 
000843 
000844 
000845 
000846 
000847 
000848 
000849 
000850 
090651 
000852 
000853 
000854 
000855 
000856 
000857 
000858 
000859 
000860 
000861 
000862 
000863 
000864 
000865 


OOVE 
QOAD 
OOA4 
O0OA2 
QOAS 
QOAS 
OCA6 
O00A8 
QOAA 


OOAB 
JOAD 


QOAF 
0080 
008% 
0013 
NOB84 
0085 
0086 


COB? 


O09 
OOBA 
OOEC 


OOBE 
OOBF 
O0CC 


00Cc1 
O0C2 
OCC4 
OOCE 
OOCE 
O0CgY 
OOCR 


GOCD 
QOCE 
UOCF 
00D1 
O00b2 


O0D4 
QQD6 
OOD& 


SOFTWARE 


FCC4 
&007 
0909 
E844 
8856 
04900 
EF4? 
8947 
8490 


8747 
8747 


E804 
FCD4 
D330 
0113 
OCOC 
0090 
CCo? 


6380 


3€40 
8380 
8380 


8803 
8733 
SCE 


Feds 
FFC4 
FFC? 
CFC? 
8C53 
B570 
BF47 


GED? 
D804 
AB&O 
OC63 
0680 


B8&70 
B380 
8380 


OOOF 


0011 


0011 
9008 


0038 
0037 


Q000 


9000 


0000 
0000 


OOQOF 
OOOF 
GQ15 


OO3F 
C009 


0900 
O8FC 
0080 


C000 
0000 
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14660 
14670 
14680 
14690 
14700 
14710 
14720 
147390 
14740 


14750 
14760 


14770 
14780 
14790 
14800 
14810 
14820 
14830 
14840 
14850 
14860 
14870 
14880 
14890 
14900 
14910 
14920 
14930 
14940 
14950 
14960 
14970 
14980 
14990 
15000 
15010 
15020 
15030 
15040 
15050 
15060 
15070 
150380 
15090 
15100 
15110 
15120 
15130 
15140 
15150 


/EJECT 
x 


* X25 SYTLE 


* 


XNTONL 


* 
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LDB 
CMN 
BE 

LDR 
LBF 


STR 
LBT 


HRF ASSEMBLER 


NETWORK HAS COME ONLINE 


B7-B4+HOSTNT 
=B7 

a 
R6eB4+PFLAGS 
R6eIDLEOT 


R6/B7+PFLAGS 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0023 


USE NETWORK DEVICE BLOCK 


NOT CREATED YET 
COPY INFO FROM DEVICE TO NETWORK 
CANNOT ACCEPT CALLBACK 


B7+DEVFGS»SONOFFtRSTRTIM GO ONLINE IN RESTART MODE 


B7+LSTUSR 
B7+SVCUSR 


R64B4 
B7,=B4 
B5,/MGCHNL 
<NTLUMG 
NTLUML *2 
z*'0000° 
B4=87 


TSKRTN 


R3/SMCPBL 
B3,GETMEM 
TSKRTE 


R3 
B3+R3 
R3e.2 


B7.=B3 
B7sB4+HOSTNT 
B7eB7+HOSTNT 
B4,B7+MOTHER 
R3 

R3,'OO3F* 
R3/B7+TSKINF 


B1,=B7 
R54B4 
BesNETG 


NETERR 
R3/=NETMPL 


B3,GETMEM 
TSKRTE 


RESET SCAN POINTERS 


PRINT CONNECTED MESSAGE 


SEND LINK UP MESSAGE 


SEND MESSAGE AS IS 
RESTORE DEVICE BLOCK 


NORMAL RETURN TO INDICATE WE ARE UP 
ALLOCATE NETWORK DEVICE BLOCK 


EXCEPTION RETURN KNOCKS US OFFLINE 


ZERO DEVICE BLOCK 


ADJUST REGISTERS 

POINT TO NETWORK FROM DEVICE 
POINT BACK TO OURSELVES 
POINT TO DEVICE FROM NETWORK 


ISOLATE LEVEL OF CALLER 


ADD NETWORK TO QUEUE 


HANDLE FUNNY MACHINE 


ALLOCATE NETWORK MAP 


EXCEPTION RETURN KNOCKS US OFFLINE 


se 


‘ % 


‘é Be eae ena ' 
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NETX 


000866 
000867 
O00& 68 
000869 
000E70 
000871 
000872 
000873 
000874 
000875 
000876 
00087? 
000878 
000879 
Q002@8O 
000881 
000882 
000883 
000884 
000885 
000886 
000887 
000888 
000889 
000890 
000891 
000892 
000893 
000894 
000895 
0008964 
000897 
O00E9S 
O00899 
000700 
000901 
000902 
000%0% 
000904 
000905 
000906 


O00¢SC? 
000908 
000909 


OODA 
OODE 
OCoC 


OODD 
OCDF 
OO€1 
OOE3 
OOES5 
OOE? 
QQE9 
COEB 
CCED 
OOEF 
CCFI 


QOF3 
OCFS 
OOF6 
OOFS8 
COFA 
OOFC 
OCFOD 
OOFF 
C101 
0103 
0104 
0106 


C108 
0109 
O1CA 
010C 
0106 
O10E 
O10F 


91176 


0112 
9713 
0114 
0115 
0116 
Oe 
0116 
0119 
O11A 


O116 


SOFTWARE 


88D3 
8733 
SLE 


BEC? 
E380 
9FC? 
9F47 
GFC7 
9F47 
E380 
OFC? 
9F47 
SFC? 
GF4? 


ABC? 
8702 
AFC2 
AF C2 
ABC? 
8702 
AFC2 
AFC2 
ABC? 
8702 
AFC2 
AFCe 


E804 
FC D4 
D380 
6172 
0012 
0000 
CCD? 


8380 


4E45 
5457 
4F52 
4B20 
434F 
4EGE 
4543 
5445 
4420 


DO 3.2 


00900 


0000 


0009 


1981/09/17 


15160 * 
F100 
15780 .4 
15190 
15200 * 
15210 
loeeu 
15230 
15240 
15250 
15260 
15270 
15280 
15290 
ASSOC 
15310 
15320 * 
$9550 
15340 
15350 
15360 
13370 
15380 
15390 
15400 
15410 
15420 
15430 
15440 
15450 * 
15460 
15470 
15480 
15490 
15500 
15510 
15520 
15530 * 
15540 
15550 * 
15560 NTCNMG 


15570 NTCNML 
155680 -* 
15590 NTLUMG 


O9s 20358 


DEC 
CL 
BDEC 


$TB 
LNJ 
STB 
STR 
STB 
STR 
LNJ 
STB 
STR 
STB 
STR 


LAB 
CL 

STB 
STB 
LAB 
CL 

STB 
$78 
LAB 
CL 

STB 
ST8 


LDR 
LDB 
LN J 
DC 
DC 
DC 
LDB 


JMP 


dC 


EQU 


DC 


HRF ASSEMBLER 


R3 
B3+R3 
R344 


B3eB7+NETMAP 
B6sGFWBLK 

B1,B7+IMSGFB 
R1,B7+IMSGFP 
B1/87+IMSGLB 
R1/67+IMSGLP 
BéeGFWBLK 

B1,B7+OMSGFB 
R1-67+0MSGFP 
B1,B87+0MSGLB 
R1/B7+O0MSGLP 


B2-B7+SOFTQ 
Be 
BeésBe+FFTR 
B2,BetLPTR 
B2,B7+0UTQ 
B2 
B2sB2+FPTR 
B2sB2+LPTR 
B2,B/7+CONQ 
Be 
BesBetFPTR 
B2eB2+LPTR 


R6-B4 
B7s=B4 
BS/MGCHNL 
<NTCNMG 
NTCNML*2 
z'0000' 
B4,=B7 


TSKRTN 


"NETWORK CONNECTED® 


$-NTCNMG 


"X25 LINK UP! 


DTSS L~6 HOST RESIDENT FACILITY PAGE 0024 


ZERO MAP 


SAVE MAP ADDRESS 
ALLOCATE INPUT MESSAGE QUEUE 
SAVE ADDRESS AND POINTER 


ALLOCATE OUTPUT MESSAGE QUEUE 
SAVE ADDRESS AND POINTER 


INITIALIZE USER QUEUE 


INITIALIZE OUTPUT QUEUE 


INITIALIZE CONNECTION QUEUE 


PRINT NETWORK CONNECTED MESSAGE 


SEND NETWORK CONNECTED MESSAGE 


SEND MESSAGE AS IS 
RESTORE DEVICE BLOCK 


NORMAL RETURN TO INDICATE WE ARE UP 


: 
: 
| 


NETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE O025 


OVE: 355.20 
011d 4C49 
Q1T1F 4E4B 
O11F 2055 
0120 5020 
090910 0006 15600 NTLUML EQUu $-NTLUMG 


‘ aetes set * a : 
; 


ae fos 2b 7 
ao Pa Sete f bot le Ye 


NETX 


000911 
000912 
000713 
000914 
000915 
000916 
000917 
000918 
000919 


0121 
0123 
0124 
0126 
0128 


SOFTWARE 


E844 
6003 
E900 
0300 
6380 


0010 


0000 
0000 
0000 


~x< 


1981/09/17 


15610 /JEJECT 
15620 * 
15630 *CHECK 
15640 * 
15650 XNTINC 
15660 

15670 

15680 

15690 


09:20:58 


IF wE HAVE ENOUGH MEMORY TO ACCEPT 


LOR 
SOL 
CMR 
BG 

JMP 


HRF ASSEMBLER 


R6e/B4+IBFMAX 
R63 
R6eMSCURB 
TSKRTN 
TSKRTE 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0026 


INPUT 
BASE DECISION OF MAX BUFFERS 
CHECK AGAINST CURRENT MEMORY LEVEL 


NORMAL RETURN INDICATES INABILITY 
EXCEPTION RETURN USED WHEN WE ARE ABLE 


: 
: 
: 
: 
| 
| 


@ 
® 
NETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE QO2?7 @ 

000920 15700 /EJECT 

000321 15710 * & 

000922 15720 * HANDLE RECEIPT OF PACKET LEVEL MESSAGES 

000923 15730 * 

000924 O012A FCC4 OOOF 15740 XNTINM LbB B7sB4tHOSTNT FIRST QUEUE TASK TO PROCESS © 

000925 012C EB80 O15A 15750 LAB B6XNETIN 

000926 012E 5C€30 15760 LDV RS/NETLEV 

000927 O12F B380 0000 X 15770 LNJ B3,BLDTSK QUEUE TASK TO PROCESS INPUT MESSAGES @ 

900926 15780 * 

000929 0131 9C€C4 0018 15790 .1 LOB B1,B4+IMSGFB COPY MESSAGES FROM DEVICE TO NETWORK 

000930 0133 9844 0019 15800 LDR R14B4+IMSGFP e 

000931 0135 9DC4 OOIA 15810 CMB B1,B4+IMSGLB MIGHT WE BE AT END 

9000932 0137 0980 T 15820 BNE oe NO 

000933 0133 9944 0018 15830 CMR R1B4+IMSGLP 

000934 013A OQ900 0000 Xx 15840 BE TSKRTE EXCEPTION RETURN USED TO INDICATE AVAILABLE 

000935 15850 * 

000936 Q013¢€ C811 15860 .2 LDR R4eB1+R1 LOAD ADDRESS/-POINTER/-LENGTH 

000937 0O13b £380 0000 x 15870 LN J B6éGWORDF 

000938 O13F 0811 15880 LDR R5/B1+R1 

000939 0140 €380 0000 X 15890 LNu B6,GWORDF 

000940 0142 E380 0000 X 15900 LNJ B6eGWORDF 

000941 C144 9FC4 0018 15910 STB B1,84+IMSGFB SAVE UPDATED POINTERS 

000942 0146 9F44 0019 15920 STR R1/B4+IMSGFP 

000943 15930 * 

000944 0148 SCC? QOOTA 15940 LDB B1,/-B7+IMSGLB COPY ONTO END OF QUEUE 

000945 014A 9847 OO01B 15950 LOR R1/B7+IMSGLP 

000946 014C CE56 15960 SWR R4eR6 

000947 014D €380 0090 X 15970 LNJ B6/PWORDG SAVE ADDRESS/-POINTER/LENGTH 

000948 O14F £855 15980 LOR R6eR5 

000949 0150 E380 0000 Xx 15990 LNJ B6é/PWORDG 

000950 0152 £854 16000 LOR R6eR4 

O0RGS7 -OT33" -ES60-' C000 X 16010 LNJ B6/PWORDG 

000952 0155 9FC? OOTA 16020 STB B1i,B7+IMSGLB SAVE UPDATED POINTERS 

000953 0157 9F47 9018 16030 STR R1/B7+IMSGLP 

000954 0159 OFD8 T 16040 B Pe LOOP FOR NEXT QUEUED MESSAGE 


@ e@ 
@ 6 
@ NETX SOFTWARE ~SAF 1981/09/17 09320:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0028 @ 
000955 16050 /EJECT 
@ 000956 16960 * & 
0390957 169070 *PROCESS X25 STYLE NETWORK PACKET LEVEL MESSAGES 
0900958 16080 * 
& 000959 16090 *<B4>=NETWORK DEVICE BLOCK & 
000960 16100 * 
000961 O15A CCD? 16110 XNETIN LDB B4,=37 ADJUST REGISTERS 
@ 000962 0153 82C4 9008 16120 LB B4+DEVFGS,SONOFF WE MUST STILL BE ONLINE © 
015d 8000 
000963 O15E€ 0580 0090 X 16130 BBF SMCPXT IF NOT THEN JUST GO TO SLEEP 
e 000964 16140 * @ 
000965 0160 9C¢C4 9018 16150 XNETIM LDB B1,B4+IMSGFB SCAN QUEUE FOR ANOTHER MESSAGE 
000966 0162 9844 0019 16160 LDR R1-B4+IMSGFP 
®& 000967 0164 90C4 OO1A 16170 CMB B1,B4+IMSGLB ANY LEFT? & 
000968 0166 0980 ir 16180 BNE el YES 
000969 0167 9944 0018 16190 CMR R1/B4+IMSGLP 
& 000970 0169 0900 0560 16200 BE XNETOM ATTEMPT TO FILL OUTPUT REQUEST CIF ANY) e 
000971 16210 * 
000972 0168 £380 0000 X 16220 .1 LNJ B6eGWORDF GET ADDRESS OF MESSAGE 
@ 0006973 016D EF44 0038 16230 STR R6eB4+MSGHDR @ 
_ 000974 O16F £380 00006 X 16240 LNJ B6,GWORDF GET POINTER INTO BUFFER 
3 000975 0171 £6602 16250 CMV R602 MUST BE AT TOP OF BUFFER 
& 006976 Ci?2 0980 O8FC 16260 BNE NETERR ELSE WE WONT WORK & 
000977 0174 E380 C000 X 16270 LNJ B6.eGWORDF GET LENGTH OF MESSAGE 
: 000978 0176 9FC4& 0018 16280 STB B1,B4+IMSGFB UPDATE TO NEW POINTERS 
@ 000979 0178 9F44 0019 16290 STR R1,B4+IMSGFP @ 
: 000%8C 16300 * 
: 000981 O174 9C€C4 0038 16310 LDB B1,B4+MSGHDR WORK WITH MESSAGE BUFFER 
@ 000982 017cC 9FC4 0034 16320 STB B1i,B4+MSGBUF 2 
000983 O17E EF44 0036 16330 STR R6eB4+MSGLEN SAVE LENGTH 
000984 01380 ACFF 16340 LOV R4,-1 PRESET COMMAND TO TRASH 
@ 000985 0181 6d04 16350 CMV R6,/HDRLEN-1 DOES ADDRESS EXIST ® 
000986 9132 0290 0219 16360 BL NTIGNM NOPE 
000987 901384 0900 T 16370 BE ha YES -- NO COMMAND THOUGH 
& 000988 0185 c2c1 0003 16380 LLH R4,B1+3 & 
000989 16390 * 
000990 9187 CF44 OO3A 16400 .11 STR R4eB4+COMAND SAVE COMMAND 
@ 000991 1139 D841 0092 16410 LOR R5eB1+2 é 
000992 3133 OF44 0039 16420 STR R5eB4+ADDRSS SAVE ADDRESS INVOLVED 
000993 9013v0 8205 16430 LB R5-‘'6F80'° MUST BE OFF 
@ J13E 6F80 @ 
000994 018F 0590 0219 16440 BaT NTIGNM 
000995 9191 8205 16450 LB R5-*1000' MUST BE ON 
r 9192 1090 @ 
000996 9193 9580 0219 16460 BBF NTIGNM 
900997 0195 4800 T 16470 BEVN R4ere2 INSURE NON-DATA IS NOT QUALIFIED 
e 000998 0196 5890 0219 16480 BLZ RS/NTIGNM e@ 
000999 16490 * 
001000 0198 1¢€07 16500 .2 LDV R1/HDRLEN+F2 SAVE CURRENT POINTER 
@ 001001 QO199 9F44 0935 16510 STR R14834+MSGPTR @ 
@ @ 
Yd] 


Mae eee ee ete 


® 
@ 
 @~=«ONeTx SOFTWARE -SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0029 ® 
| 001002 16520 /EJECT 
@ 001003 16530 * e 
001904 16540 *PRINT TRACE (IF APPLICABLE) 
001005 16550 « 
® 001006 90198 £804 16560 LDR R60B4 ARE WE MONITORING THE NETWORK ® 
001007 019C £900 0000 X 16570 CMR R6eMONNET 
| 001908 019 0900 T 16580 BE a4 YES -- SEND MESSAGE 
@ 001009 O19F 6C7F 16590 LDV R6-'7F! ® 
7 001010 01A0 £544 0039 16600 AND R6e+BG+ADDRSS ARE WE MONITORING CERTAIN NETWORK LINE 
001011 O1A2 £404 16610 OR R6-B4 
e 001012 0143 £900 0000 xX 16620 CMR R6-MONNET e 
001013 O1A5 0980 T 16630 BNE 6 NOPE == SKIP MONITORS 
001014 16640 * 
& 901015 QTA6 D330 QO000 X 16650 .4 LNJ BS/MGSTRT START MONITOR MESSAGE & 
: 001016 16660 * 
001017 0148 E804 16670 LOR R6284 PRINT NETWORK ADDRESS 
@ 001018 0189 »d380 0000 xX 16680 LNJ B5 /MGHEX e 
001019 0148 0380 0000 X 16690 LNJ B5/MGCHAR 
001020 O1Ac 002d 16700 DC SASCDS 
@ 001021 16710 « e 
001022 Q1AE £844 0039 16720 LDR R6,B4+ADDRSS PRINT SUPPLIED ADDRESS | 
; 001023 9180 0380 0000 X 16730 LNNJ B5 »MGHEX 
e 001024 0182 0380 0000 X 16740 LNJ B5,/MGCHAR SEPARATE DATUM e 
001025 0184 522F 16750 DC SASCR*Z*O100'+SASCEFS 
| 001026 16760 * 
“@ 001027 0185 £844 003A 16770 LDR R684+COMAND SPIT COMMAND OUT e 
: 001628 0187 0380 0000 X 16780 LNJ 85 -MGHEXH 
001629 018% 0380 0000 xX 16790 LNJ B5,/MGCHAR SPACE ONCE 
@ 001030 0188 0020 16800 DC SASCSP Ps 
001031 16810 * 
001032 018C £844 0036 16820 LDR R6,B4+MSGLEN TEST WHETHER DATA EXISTS 
e 001033 O1BE 6EFB 16830 ADV R6e~HDRLEN ® 
001034 018F 6900 T 16840 BEZ R6005 NOPE -- SEND MESSAGE 
001035 91¢0 0380 0000 X 16850 LNJ B5 »-MGHEX 
e 001036 16860 * ® 
001037 1C2 380 0000 xX 16870 .5 LNJ BS/MGSEND FORCE MESSAGE 
001038 16880 * 
@ 0071039 O01C4 B&R44 OQO3A 16890 .6 LDR R3-B4+COMAND CHECK COMMAND eS 
001040 C1C6 coC7F 16900 LDV Res '7F! POINT TO ENTRY IN NETWORK MAP 
001041 0U1C7 AS44 0039 16910 AND R2,/B4+ADDRSS 
e 001042 01¢9 aAcc4& OOOE 16920 LoB B2,B4+NETMAP ® 
001043 01C8 2980 T 16930 BNEZ R2en7 ONLY CHECK RESTART IF LCI=0 
001044 01CC B970 OOFB 16940 CMR R3-=3X25R1 CHECK AGAINST RESTART COMMAND 
e 001045 O1CE 0900 0208 16950 BE DCERI RESTART INDICATION @ 
001046 0100 6970 OOFF 16960 CMR R32=SX25RC CHECK RESTART RESPONSE 
001047 O1v2 0900 01F7 16970 BE DCERC RESTART CONFIRMATION 
e 001048 16980 * ® 
001049 01D4 82C4 0008 16990 LB B4+DEVFGS/RSTRIM IN RESTART MODE? 
0106 0400 
eo 001050 107 0529 17000 BBT SCMDRLS YES == IGNORE MESSAGE @ 
: 001051 01D8 8bda2 17010 CMN B2+R2 ALREADY KILLING ONE? 
001052 O1D¥ 0980 T 17020 BNE 261 YES == DOIT AGAIN 
@ e 
@ @ 


ot ark Givewtes oe or ee. ORES 


| 


NETX 


001053 
001054 
001055 
001056 
001657 


001058 
001059 
00106C 
001061 
0017062 
001063 
001064 
001065 
001066 
001067 
001068 
001069 
001070 
001071 
001072 
001073 
001074 
001075 
001076 
001C77 
001075 


Q1DA 


O1DC 


O1DE 
O1€0 
O1E1 


O1E2 
O1E3 
Q1ES 
GIES 


O1E8 
O1E9 
OTEB 
EX 
O1EE 


OTLEF 
O1FO 
O1F1 
Q1F2 
QO1F3 
O1F4 
Car 
O1F6 


SOFTWARE 


D380 
8380 


82C4 
0400 
OS1F 


8DA2 
0900 
ACA2 
AFC4 


A802 
A570 
2013 
ABAD 
838A 


O8FC 
O2Dd2 
O2ED 
O2F3 
0303 
0309 
0309 
O8FC 


1981/09/17 


17030 
17040 
17050 
17060 
17070 


17080 
17090 
17100 
a a te 8 
17120 
17130 
17140 
17150 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
e270 
17280 


* 


X25STB 


09:20:58 


LNJ 


JMP 


LB 


BBT 


CMN 
BE 

LOB 
STB 


LDR 
AND 
SCL 
LAB 
JMP 


DC 
DC 
DC 
DC 
oC 
DC 
DC 
DC 


HRF ASSEMBLER 


BS/BLDMAP 


CLRERR 


B4+DEVFGSsRSTRIM 


SCMORLS 


B2+R2 

DTERDY 
B2sB2+Re 
B2-B4+NETUSR 


R2eBe 
R2e=XSMODE 
R23 
B2exX25STBt+R2 
(B2) 


<NETERR 
<DTEWTG 
<DCEWTG 
<DTECLR 
<DCECLR 
<INFTRX 
<INFTRX 
<NETERR 


DTSS L-6 HOST RESIDENT FACILITY PAGE 
ELSE START ONE 

AND KILL IT 

IN RESTART MODE? 

YES =~ IGNORE MESSAGE 

ANYTHING DEFINED HERE? 


NO -- WERE IN READY MODE 
MOVE NETMAP BLOCK OVER 


BRANCH BASED ON MAJOR STATE 


CALL PROCESSOR 


~~ READY (CTOTALLY OFF) 


~- DTE WAITING (NEED CALL CONFIRMED) 


0030 


~~ DCE WAITING (RESPOND TO CALL RQST) 


~~ DTE CLEARING 

DCE CLEARING 

~~ INFORMATION TRANSFER (CDTE) 
~- INFORMATION TRANSFER (DCE) 
~- UNDEFINED 


NOUEWN OO 
‘ 
' 


ee02ee8ee8e@6hUhOhUCc OhUCOChCM Hh(C(Cc hC(<CM OhC( WC HlClOOlUlUlUhhUlUcOhlUlUcrOlhlUlclhlUCl lhl 


| 
! 
| 
| 
3 
: 
: 
: 
: 
i 


See sites shed od ane ae) othe get 


NETX 


001079 
00108C 
001081 
001082 
001083 


001084 
O010&S 
001086 


001087 
001088 
001089 
001090 
001091 
N010G92 
001093 
001094 
001095 
001096 
001097 


001098 
001099 


00711700 
001101 
001102 
001103 
001104 
00117105 


001106 
001107 
001108 
001109 
001170 
001111 
001112 
001113 
0011174 
001115 
001116 


O1F? 
O1F9 
OFA 


O1FB 
C1FD 
O1FE 


0200 
0202 
0204 
U206 


G2Ce 
O2CA 
0208 
O20 
O20E 
0 20F 


0210 
Gen2 
G2 45 
O27 
0216 
0216 


021% 
0218 
O21C 


SOFTWARE 


82C4 
0100 
0580 


B&44 
0700 
B380 


Ccc4 
9CC4 
E260 
8380 


8944 
0200 
0575 
82C4 
0100 
O56C 


8944 
0400 
F380 
4ES2 
380 
OFES8 


F380 
4947 
OFE4S 


0008 


0008 
O22F 
OOOF 
CO3B 


OCO00 
0160 


0008 


0008 


0008 
N4DF 


OO5A 


O4DF 


1981/09/17 


17290 
17300 
17310 
eS 20 
17330 


17340 
17 S50 
17360 


17370 
17380 
17390 
17400 
17410 
17420 
17430 
17440 
17450 
17460 
17470 


17480 
17490 


17500 
T7570 
17520 
PeISC 
17540 
17550 


17560 
17570 
17580 
17590 
17600 
176190 
17620 
17630 
17640 
17650 
17660 


/EJECT 


& 


09:20:58 


HRF ASSEMBLER 


DTSS L=-6 HOST RESIDENT FACILITY 


*DCE IS CONFIRMING NETWORK RESTART REQUEST 


x 


DCERC 


* 


al 


x 


eCMDRLS 


* 
* 


LB 

BBF 
LBF 
LNJ 
LOB 
LOB 


LNJ 
JMP 


*DCE WANTS TO 


* 


~DCERI 


* 
x 


LBT 


BBT 
LB 


BBT 


B4+DEVFGS/RSTRTX 


22 


B4+DEVFGSARSTRIMtRSTRIR#tRSTRTX 


B3e/RSTRNK 
B4,B4+HOSTNT 
B1eB4+MSGHDR 
B6seFRBLKS 
XNETIM 

HAVE NETWORK START FRESH 
B4+DEVFGS-RSTRITR 


SCMORLS 
B4+DEVFGS*RSTRTX 


‘a 


DID WE SEND RESTART? 


NO -- FORCE RE-RESTART 


RESET RE-INIT CLOCK 


RESTORE NETWORK CONTROL BLOCK 
RELEASE MESSAGE AND CONTINUE 


PARSE NEXT MESSAGE 


NOTE THAT RESTART RECEIVED 


ALREADY DOING ONE 
HAVE WE TRANSMITTED RESTART? 


YES =~ TREAT COLLISION AS CONFIRMATION 


*CONDITIONS HAVE CAUSED US TO ENTER RESTART OF NETWORK 


* 


22 


* 
* 


LBT 


LNJ 
DC 
JNJ 
B 


B4+DEVFGSsRSTRIM 


B7sPNTERM 
'nR? 
B3,CLRNET 
SCMDRLS 


FLAG THAT RESTART MUST BE SENT 


PRINT NETWORK ERROR MESSAGE 
CODE TO DISTINQUISH 

CLEAR ALL USERS FROM NETWORK 
RELEASE COMMAND AND CONTINUE 


*MESSAGE RECEIVED HAD FLAWED LENGTH OR GFI/LCI 


*x 


NTIGNM 


LNJ 
DC 
B 


B7»PNTERM 
‘IG? 
SCMORLS 


PRINT NETWORK ERROR MESSAGE 
CODE TO DISTINQUISH 
RELEASE COMMAND AND CONTINUE 


PAGE 0031 


CLEAR RESTART =~ ENTER NORMAL MODE 


NETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0032 
001117 17670 “#EJECT 
001118 17680 * 
001119 17690 *CLOCK TO RESEND RESTART REQUEST HAS POPPED 
001120 17700 * 
001121 0210 CCD? 17710 REINIT LD8 B4,=B7 ADJUST REGISTERS 
001122 O021F 8744 O0O00C 17720 CL B&4+RNTCLK RESET CLOCK CELL 
001123 0220 82C4 0008 17730 L8 B&4+DEVFGS/SONOFF HAS NETWORK BEEN RESET? 
O222 6&000 
001124 0223 0580 0000 Xx 17740 BBF SMCPXT YES -- IGNORE WAKEUP CALL 
001125 9225 8844 0908 17750 LBF B4+DEVFGS/RSTRTX RESEND RESTART REQUEST 
O227 Q100 
001726 O228& 82C4 0008 17760 LB B4+DEVFGS/RSTRIM MUST BE IN RESTART MODE 
022A 0400 
001127 Q0228 0580 O8FC 17770 BBF NETERR ELSE WEVE GOT MAJOR PROBLEMS 
001128 022d 8380 0560 17780 JMP XNETOM ATTEMPT TO FILL OUTPUT REQUEST CIF ANY) 
0017129 17790 * 
001130 17800 * 
001131 17810 *RESET RE-INIT CLOCK 
0011732 17820 * 
001133 O2eF 9C80 O8FB 17830 RSTRNK LOB B1-ZERO KILL REINIT CLOCK 
* 001134 0231 9E&C4 OOOC 17840 SwW3 B1,B4+RNTCLK 
2 001135 0233 €630 O21D 17850 LAB B6/REINIT 
001136 0235 FCD4 17860 LOB B7,=B4 
: 001137 0236 8380 0000 xX 17870 JMP KILCLK KILL CLOCK IF IT IS RUNNING 


k 


south 
ee é adi aes 


le e30«ee0eee ee © 6 a ar Var ar Vr Yr Yr ee 


a 


5 Gee Ui 2 Ads BS, 


NE TX 


001138 
001139 
001140 
001141 
001142 
001143 


001144 
001145 
001146 
001147 


001148 
001149 
00115C 
001151 
001152 
001153 
001154 


001155 
001156 
001157 
001158 
001159 
00716C 
001161 
001162 
001163 
001164 
001165 
001166 
001167 
001168 
001169 
001170 
001171 
001172 
001173 
001174 
001175 
001176 


001177 
001178 


0238 
O23A 
O23C 
0230 


O23E 
0246 
0242 
0243 


0244 
0246 


0247 
0249 
0243 


O24C 
O24E 
0250 
0252 
0254 


0256 
0258 
0259 
O25A 
O25C 


O25¢ 
O25F 
0261 
0263 


G26S 
O266 


0268 
O26A 
0266 
O26D 


SOFTWARE 


874C 
B894C 
9000 
OF 80 


D380 
8944 
0010 
OF 84 


F380 
4€43 


874C 
894C 
7000 


B3380 
B389 
ACC4 
8742 
D380 


D380 
0268 
0069 
0680 
0980 


CCD1 
C380 
D380 
D380 


9CD4 
B380 


8844 
0019 
0580 
8380 


OO3F 
OO3F 


O7AA 
008 


O4GDF 


OO3F 
OO3F 


0797 
O79C 
OO3F 
0001 
O78C 


0000 


O8FC 
O8FC 


9000 
0000 
0000 
0000 
0008 


0200 
0560 


>< 


1981/09/17 


17880 
17890 
17900 
17910 
17920 
17930 


17940 
17950 
17960 
17970 


17980 
17990 
18000 
18010 
18020 
18030 
18040 


18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
18130 
18140 
18150 
18160 
11:70 
18180 
18190 
18200 
18210 
18220 
18230 
18240 
18250 
18260 


18270 
18280 


JEJECT 


* 


*FORCE VIRTUAL INTO CLEARING CONDITION 


* 


CLROCE 


* 


«WTGCLK 


* 


~CLRERR 


* 


~CLROTE 


* 


CURXIT 


09:20:58 


CL 
LBT 


HRF ASSEMBLER 


(B4+NETUSR) 


(B4+NETUSR)I«XSCCLRERSPOND 


ol 


BS/PTOCLK 
B4+DEVFGS/-CLKPRC 


SCLRDTE 


B7sPNTERM 
oe 


(B4+NETUSR) 


(CB4GtNETUSR) sXSTCLRtERSPOND 


B3/KTOCLK 
B3/KRRCLK 
B2sB4+NETUSR 
B2+NETFGS 
BS/CLRUSR 


BS/NETCHK 
<CLRXIT 


NETERR 
NETERR 


B4,=831 

B5/DQRDSC 
BS,DEVKOT 
BS/DVKINP 


B1,=B4 
B3,FNETBK 


B4+DEVFGS/CLKPRC 


CMDRLS 
XNETOM 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0033 


RESET USER STATE 
SET DCE CLEARING MODE 


JOIN USER CLEARING CODE 


POP TIMEOUT CLOCK 
PROCESSING FOR CLOCKS (NOT INPUT) 


JOIN COMMON CLEAR ROUTINE 


PRINT NETWORK ERROR MESSAGE 
CODE TO DISTINQUISH 


RESET USER STATE 
SET DTE CLEARING MODE 


RESET TIMEOUT CLOCK 
RESET RECEIVE RESPONSE CLOCK 
RESET NETWORK FLAGS 


FREE INFORMATION FOR USER 


FIND USER IF CONNECTED 

NOT FOUND -~- RELEASE COMMAND 

PULL CURRENT USER OFF NETWORK USER QUEUE 
HANDLE FUNNY MACHINE 

BUT YOU SAID! 


WORK WITH NETWORK USER DEVICE BLOCK 
GIVE OFFLINE RETURN TO ALL PARTIES 
KILL ANY AND ALL QUEUED OUTPUT 

KILL ANY REMAINING INPUT 


RELEASE BLOCK IF APPROPRIATE 
FREE NETWORK USER BLOCK 


DID A CLOCK DO THIS TO US 


NOPE -- A COMMAND 
ATTEMPT TO FILL OUTPUT REQUEST CIF ANY) 


NETX 


001179 
001180 
001181 
001182 
001183 
001184 
001185 
001186 
001187 
001188 
001189 
001190 
001191 
001192 
001193 
001194 
001195 
001196 
001197 
001198 
001199 
001200 
001201 
001202 
001203 
001204 
001205 
001206 
001207 
001208 
001209 
001210 
001211 
001212 
001213 
001214 
001215 
001216 
001217 
001218 
001219 
001220 
001221 
001222 
001223 
001224 
001225 
001226 
001227 
001228 
001229 
001230 


O26F 
Q271 
O275 
U275 
C277 


0279 
Q278 
Q27C 
O27od 


O27F 
0281 
0233 
0285 
O28? 


0289 
O28A 
02868 
O23ac 
280 
O28E 
O2EF 
C290 
0294 


0293 
C294 
0295 
0296 


0298 
0299 
O2GA 
0293 
O29C 
O29E 


O2A0 
O2A1 
O2A2 
O2A5 
O2A5 
O2A7 
02A8 
O2AA 
O2A8 


SOFTWARE 


D380 
B970 
0900 
B9 70 
0980 


FB44 
7EFB 
7006 
0200 


9C380 
9EC4S 
9844 
ABC4 
D380 


VEO? 
E291 
6900 
70C4 
704C 
6D0C 
0900 
6D0E 
0980 


“DOC 
0900 
7D0E 
0980 


D856 
DAS? 
5941 
S5E0B 
D944 
0300 


7041 
7EQ08 
9357 
E380 
E380 
F856 
E380 
6044 
7B00 


O7 E> 
0013 
0238 
OO008 
0244 


0036 


0244 
O38FB 
0038 
0035 
003C 
0803 


0244 


0244 


0036 
0244 


0000 
0009 


0000 


1981/09/17 


18290 
18300 
18310 
18320 
18330 
18340 
18350 
18360 
138370 
18380 
18390 
18400 
18410 
18420 
18430 
18440 
18450 
18460 
18470 
18480 
18490 
18500 
18510 
18520 
18530 
18540 
18550 
18560 
18570 
18580 
18590 
18600 
18610 
18620 
18630 
18640 
18650 
18660 
13670 
18680 
18690 
18700 
18710 
TE720 
18730 
18740 
13750 
18760 
18770 
18780 
18790 
18800 


/EJECT 


* 


09:20:58 


HRF ASSEMBLER 


*PACKET RECEIVED WHILE TOTALLY IDLED 


x 


DTERDY 


LNJ 
CMR 
BE 

CMR 
BNE 


LDR 
ADV 
CMV 
BL 


LO 
SWB 
LOR 
LAB 
LNJ 


LDV 
LLH 
BEZ 
DOR 
SOR 
CMV 
BE 

CMV 
BNE 


CMV 
BE 

CMV 
BNE 


LOR 
ADD 
SOR 
ADV 
CMR 
BG 


SOR 
ADV 
LDR 
LNJ 
LNJ 
LOR 
LNJ 
SOR 
BEVN 


BS»BLDMAP 
R3e=$X250I 
CLROCE 
R3/=$X25CI 
CLRERR 


R7eB4+MSGLEN 
R?e-HDRLEN 
R7eCRQMGL 
CLRERR 


Bi» ZERO 
B1/B84+MSGHDR 
R14B4+*MSGPTR 
B2,B4+CONQ 
BSsADMSGQ 


R1/2+HDRLEN 
R6/B1+R1 
R6044 

R724 
R7e16-4 
R6e12 

ol 

R614 
CLRERR 


R?7 sete 
ec 
R714 
CLRERR 


R5eR6 

RSeR7 

R51 
RSeHDRLEN+CRQMGL 
R5/B4+MSGLEN 
CLRERR 


R71 

R7 eHDRLEN+1 #2 
R1R7 
B6e/SETBPT 
B6eGBYTEB 
R7eR6 
Bé/GBYTEB 
R604 

R7ee3 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0034 


BUILD MAP BLOCK 
DISCONNECT? 


YES =~ DO IT 
INCOMING CALL? 
NOPE ~~ ENTER DTE CLEARING STATE 


INSURE LENGTH IS VALID 


INSURE MINIMUM LENGTH 
NOT GOOD ENOUGH 


SAVE CONNECT ASIDE (DONT RELEASE) 


PLACE MESSAGE ONTO CONNECT QUEUE 


POINT TO CONFIGURATION 


NO CONFIGURATION 
SEPERATE CALLING/CALLED LENGTHS 


MUST BE 12 OR 14 DIGITS 


MUST BE 12 OR 14 DIGITS 


COMPUTE LENGTH WITH MESSAGES 


ADD HEADER AND REQUIRED FRAMING 
INSURE THERES PLENTY OF MESSAGE THERE 
NOT ENOUGH ROOM 


DETERMINE BYTE WHERE CALLING AREA CODE RESIDES 
SKIP HEADER,.LENGTH..CALLED..DNIC OF CALLING 


SET POINTER TO PROPER BYTE 
LOAD THEN SKIP 


SHIFT LAST BCOIGIT OF AREA CODE 


COPY EVEN/ODD BIT OF MIDDLE BCDIGIT OF AREA COD 


eceeaeeeeeeeeeweeweeeee ee & 80 8 e 


© hy st Side os Lage Ses 


NETX 


001231 


9001232 
001233 
001234 
001235 
001236 
001237 
001238 
001239 
001240 
0071241 
0071242 
001243 
001244 
001245 
001246 
001247 
001248 
001249 
001250 
001251 
0017252 
001253 
007254 
007255 
001256 
001257 
007258 


001259 


SOFTWARE 


8956 
0010 


PEEO 
F570 
7001 
E457 


BCC4 
EF 43 


D380 
8380 


ccc4 
D870 
D380 
6C04 
E?7DD 
E870 
E7 DD 
6048 
E7DD 


TEOS 
ABC4 
D380 


894C 
5000 
8380 


0070 


QOO3F 
0006 


0000 X 
0247 


OOOF 


8000 
9815 


000B 


0005 
0803 


OO3F 


91760 


1981/09/17 


18810 


18820 
18830 
18840 
18850 
18860 
18870 
18880 
18890 
18900 
18910 
18920 
18930 
18940 
16950 
18960 
18970 
18980 
18990 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 


19090 


09:20:58 


LBT 


ADV 
AND 
SOL 
OR 


LDS 
STR 


LNJ 
JMP 


LOB 
LOR 
LNJ 
LDV 
STH 
LDR 
STH 
SOR 
STH 


ADV 
LAB 
LNJ 
LBT 


JMP 


HRF ASSEMBLER 


R62°0010' 


R7e(-2*16) 
R72*0070° 
R7 #1 

R6eR7 


B3,B4+NETUSR 
R6/,B3+NTINFO 


BSsNETCON 
CLRODTE 


B4,B4+HOSTNT 
R5/*800C0' 
BS,/BLDMSG 
R64QSRDPM 
R6/POP B1+4+R1 
R6e=PMERSP 
R6/POP 61+R1 
R608 

R6/POP B1+R1 


R73 
B2eB4+0UTQ 
B5/ADMSGQ 


(B4+NETUSR) »XSCWTGtERS POND 


XNETIM 


- PARSE NEXT MESSAGE 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0035 


ADJUST FIRST BCDIGIT OF AREA CODE 


SAVE RESULT IN MAP BLOCK 
SAVE AREA CODE RESULT 


GENERATE NETWORK DEVICE BLOCK 
IF NO MEMORY THEN REJECT 


RESTORE NETWORK BLOCK 
STACK REQUEST FOR SPEED MESSAGE 


READ PARAMETER 


WE WANT SPEED 


INCREASE LENGTH 
ADD THIS MESSAGE TO OUTPUT QUEUE 


SEND CALL ACCEPTED 


| 
| 
| 
| 
| 
| 


NETX SOFTWARE -SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0036 
001260 19100 /EJECT 
001261 19110 * 
001262 19120 *PACKET RECEIVED WHILE RESTING IN WAITING STATE 
001263 19130 * 
001264 O02d2 8970 OOOF 19140 DTEWTG CMR R3e=SX25CC CALL CONFIRMATION? 
001265 0204 0900 T 19150 BE 1 YES -- WRAP WAITING STATE UP 
001266 0205 68970 0008 19160 CMR R3,=$X25CI1 CALL COLLISION? 
001267 OQ2d7 0996 19170 BNE BOCEWTG NOPE -~- FORCE OFF 
001268 0208 874C OOSF 19180 CL (B4+NETUSR) ENTER DCE WAITING STATE 
001269 O2dA &94C OOSF 1917190 LBT (B4+NETUSR)»XSCCLR WITHOUT SENDING RESPONSE 
020C 8000 
001270 O2Dd OF8D T 19200 B 22 
001271 19210 * 
Q01272 O20E 8380 0797 19220 .1 LNJ B3-/KTOCLK WE CONNECTED WITHIN TIME LIMIT 
001273 O2EO 874C ODO3F 19230 CL (B4+NETUSR) ENTER INFORMATION TRANSFER STATE 
001274 O26? 894C OO03F 19240 Led (B4+NETUSR) »-XSICTX+#OUROWN 
O2E4 C800 
001275 O2E5 0380 0000 X 19250 LNJ BS »-NETCHK INDICATE CONNECTION WITH BREAK 
001276 O2E? O8FC 19260 DC <NETERR MUST BE PRESENT 
O01277 O2ES CCD 19270 LbB 84,=B1 
0071278 O2EYX 0380 0000 X 19280 LNJ B5 »DQRBRK GIVE BREAK TO ALL PARTIES 
001279 19290 * 
001280 O2ER 8380 0200 19300 2 JMP CMDRLS IGNORE COMMAND 
007281 19310 * 
001282 19320 * 
001283 19330 *PACKET RECEIVED BEFORE WE RESPONDED WITH CALL ACCEPTED 
001284 19340 * 
001285 G2ep 68970 0013 19350 DCEWTG CMR R3e=3X2501 FORGET NEW CALL 
001286 O2EF 0900 0238 19360 BE CLRDCE ENTER DCE CLEARING 
001287 OeFi 8380 0244 19370 JMP CLRERR ENTER DTE CLEARING STATE 


eeeee28kee8se0ec:.6h6.e6m6mUchOhUcOOrhC<C HWM—C—~CNMhC—< SMC“ SC‘ OWCDHhlUOmlhlUO 


fs atoll es . vit i 


NET X SOFTWARE -~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0037 
001288 19380 /EJSECT 
001289 19390 * 
001290 19400 *DTE ISSUED CLEAR (CONFIRM OR COLLISION ALLOWED) 
001291 19410 * 
001292 O02F3 68970 0017 19420 DTECLR CMR R3-=$X250C CLEAR CONFIRMATION? 
001293 O2FS 0900 T 19430 BE | YES -- CLEAR CONNECTION 
001294 O2F6 6970 0013 19440 CMR R3e=$X250I1 CLEAR COLLISION? 
001295 O2F8& 0980 bi 19450 BNE ae NOPE -- IGNORE 
001296 O2F9 82CC OOSF 19460 Le (BG4+NETUSR) «RSPOND DID WE EVER GET CLEAR SENT? 
O2FB 1000 
001297 O2FC 0500 T 19470 BBT oa NO -- ENTER DCE CLEARING STATE 
001298 19480 * 
0071299 O2FD B380 0797 19490 .1 LNJ B3eKTOCLK KILL TIMEOUT CLOCK 
001300 Q2FF 83380 O7F9 19500 LNJ B3eRLSMAP FORCE INTO READY STATE 
001301 19510 * 
001302 03071 8330 0200 19520 .2 JMP CMDRLS ELSE IGNORE WHATEVER COMMAND IT WAS 
001303 19530 * 
001304 19540 * 
001305 19550 *DCE ISSUED CLEAR (RETRY ALLOWED IF SLOW TO RESPOND) 
901306 19560 * 
001307 0302 6970 0013 19570 .~DCECLR CMR R3e=$X2501 RETRY OF DISCONNECT? 
001308 0305 0980 0244 19580 BNE CLRERR NOPE -- START OUR OWN DISCONNECT 
001309 19590 * 
001310 0307 8380 0238 19600 .3 JMP CLROCE ENTER DCE CLEARING STATE 


ag ah Hobe, RES fo ime oe _e 


ee ce ee 


\ 


NETX 


001311 
001312 
O07.54:5 
001514 
001315 
001316 
001317 
001318 


001319 
001320 
001321 
001322 


001323 
001324 
001525 
001326 
00132? 
001328 
001329 
001330 
001331 
001332 
001333 
001334 
001335 
001336 
001337 
0013328 
001339 
001340 
001341 
001342 
001343 
001344 
001345 
001546 
001347 
001348 
001349 
001350 
001351 
001352 
0013553 


030% 
0303 
0300 
O39E 
O30F 
0310 
9311 
9313 
0314 
9315 


J315 
0317 
0313 
O3i1A 
iho vs 


JQ31C 
0310 
3 VE 


QO31F 
0320 
0321 
O322 
0323 
9324 
325 
0326 
0327 
0328 


SOFTWARE 


3800 0378 
0830 O31F 
6COA 
82D3 
0002 
0500 
D380 031C 
6003 
8853 
O0EO 


3042 
B956 
0280 0244 
DBBS 
8380 


O36E 
0374 
0244 


0003 


0244 
0244 
0244 
0244 
0238 
0244 
0244 
0244 
0441 
04D0 


OOOA 


-SAF 1981/09/17 


19610 
19620 
19630 
19640 
19650 
19660 
19670 
19680 


19690 
19700 
19710 
19720 


19730 
19740 
19750 
19760 
19770 
19780 
19790 
19800 
19810 
19820 
19830 
19840 
193850 
19860 
19870 
19880 
19890 
19900 
19910 
19920 
19930 
19940 
19950 
19960 
19970 
19980 
19990 
20000 
20010 
20020 
20030 


JEJECT 


* 


094 20°3'5.8 


HRF ASSEMBLER 


OTSS L-6 HOST RESIDENT FACILITY 


*PACKET RECEIVED DURING INFORMATION TRANSFER STATE 


* 


INFTRX 


* 
* 


*SUPERVISORY COMMANDS CFLOW CONTROL) 


* 
SCMDTB 


* 
SCMTBL 
* 
* 


BEVN 
LA3 
LDV 
LB 


BBT 
LAS 
LOV 
LBF 


SOR 
CMR 
BGE 
LAB 
JMP 


DC 
DC 
DC 


EQU 


R3eIXDATA 
BS/UCMDTB 
R6/UCMTBL 
R3-'O0O02° 


a 

BS»SCMDTB 
R6eSCMTBL 
R3-°OOEO' 


R3e2 
R3eR6 
CLRERR 
B5/B5+R3 
(B5) 


<ITXRR 
<ITXRNR 
<CLRERR 


S-SCMDTB 


IF DATA THEN ACT LIKE DTE WOULD 
ASSUME UN-NUMBERED 


SUPERVISORY COMMAND? 


NO 
CHANGE TO SUPERVISORY TABLE 


RESET PACKET COUNT 


BRANCH ON =S- AND -U~ COMMANDS 


NOT VALID -- RESTART 
INVOKE COMMAND PROCESSOR 


RECEIVE READY 
RECEIVE NOT READY 
REJECT (NOT SUPPORTED) ENTER DTE CLEARING 


LENGTH OF TABLE 


*UN-NUMBERED COMMANDS (VIRTUAL CONNECTION CONTROL) 


* 
UCMDTB 


* 
UCMTBL 


<CLRERR 
<CLRERR 
<CLRERR 
<CLRERR 
<CLRDCE 
<CLRERR 
<CLRERR 
<CLRERR 
<ITXII 

SITXIC 


$-UCMDTB 


- -eUNDEFINED 

eo eUNDEFINED 

CALL INDICATION CINVALID) 

CALL CONFIRMED CINVALID) 

CLEAR INDICATION CENTER DCE CLEARING) 
CLEAR CONFIRMATION CINVALID) 

RESET INDICATION (NOT SUPPORTED) 
RESET CONFIRMATION (NOT SUPPORTED) 
INTERRUPT INDICATION 

INTERRUPT CONFIRMATION 


LENGTH OF TABLE 


PAGE 0038 


NETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0039 


001354 20040 /EJECT 


fete Aine £ gab te OMB a 


001355 20050 * 
001356 20060 *CHECK RECEIVED PACKET SEQUENCE COUNT 
001357 20070 * 
001358 0322 0844 OO3A 20080 CKRPS LOR R5/B4+COMAND RETRIEVE PACKET CONFIRM COUNT FROM COMMAND 
001359 0328 5045 20090 SOR R505 
001360 O032C E84C OO3F 20100 LDR R6/(B4+NETUSR) GET USERS FLOW CONTROL BITS 
001361 O32E C856 20110 LDR R46R6 SAVE ASIDE 
001362 O32F 8757? 20120 CL R?7 
001363 20130 * 
001364 0330 E570 OO1F 207140 41 AND R6e°OO1F* ISOLATE TO CURRENT AND HELD COUNTS 
0012365 0332 70C2 20150 DOR R@lr2 
001366 0333 E955 20160 CMR R66R5 COMPARE wITH CURRENT BUFFER 
001367 0334 09009 20170 BE 22 VERY GOOD 
001368 0335 7900 0244 20180 BEZ R7/CLRERR CLEAR CONNECTION IF ERRORS 
091369 03537 7082 20190 DOL Rae 
0071370 0338 6€03 20200 ADV R643 DECREASE HELD..INCREASE CURRENT 
001371 0339 6380 0797 20210 LNJ B3/KTOCLK KILL TIMEOUT CLOCK (WINDOW ROTATED) 
001372 0338 OFFS 20220 B ne 
001373 20230 * 
001374 033C 7082 20240 .2 DOL Rave PUT COUNT BACK INTO FLOW CONTROL BITS 
001275 033b E654 20250 XOR R6eR4 
GO1376 O35€6. €570 D0OTF 20260 AND R6e*OO1F' 
001377 O340 E654 20270 XOR R6eR4 
001378 0341 EF4C OOS3F 20280 STR R6e(B4+NETUSR) 
001379 20290 * 
001380 0343 82D6 20300 LB R6e/DTEPSC ANY LEFT UNACCOUNTED FOR? 
0344 0003 
001381 0345 0580 20310 BBF wd NO 
001382 0346 E654 20320 XOR R6eR4 WE LEFT CLOCK ALONE IF COUNTS SIMILAR 
001383 0347 8206 20330 LB R6e0TEPSC 
0348 0903 
001384 0349 O5FC 20340 BBF a) 
001385 034A D870 5460 20350 LDR RS /=ONESEC*180 WAIT A TOTAL OF THREE MINUTES 
001386 034C EB80 O23E 20360 LAS B6O/WTGCLK IF WINDOW DOESNT MOVE THEN CLEAR 
001387 Q34F 8380 0786 20370 JMP STOCLK SET TIMEOUT CLOCK 
001388 20380 * 
001389 0350 83385 20390 es JMP BS RETURN WITHOUT SETTING CLOCK 


‘ 


aod at 
Geb be 


» eek ‘ 


——— a ee A a ee ee Re eee eee hha fos get OTS eg STS 


i 


NETX 


001390 
001391 
001392 
001393 
001394 
001395 
001396 


001397 
001398 
001399 
001400 
001401 
001402 
001403 
001404 
001405 
001406 
001407 
001408 
001409 
001410 
001411 
001412 
0014173 


091414 
001415 


0351 
0353 
0355 
0356 
9S ee arg 
0359 
O35A 


O35¢ 
0350 
O36 
O35F 
0369 
0361 


0362 
9364 
502 
0366 
0367 
0369 
0364 
936% 

036D 


SOFTWARE 


ACC4 
EE42 
8206 
0007 
0580 
GE F 
EF 42 


70€S5 
7040 
BAD? 
Boor 
70C3 
7040 


E842 
6046 
EAS? 
6001 
E644 
8206 
QOOOE 
0500 
8385 


OO3F 
0001 


0244 


0001 


0001 


QO3A 


9244 


1981/09/17 09:20:58 HRF ASSEMBLER 
20400 /EJECT 

20410 * 

20420 * CHECK SENT PACKET SEQUENCE NUMBER 


20430 * 


20440 CKSPS LOB B2/B4+tNETUSR 
20450 LOR R6e,B2tNETFGS 
20460 LB R6/DCEPSF 
29470 BBF CLRERR 

20480 ADV R6/-DCEPSI 
20490 STR R6eB2+NETFGS 
20500 * 

20510 DOR R773 

20520 SOR R?e16-3 
20530 INC R? 

20540 SUB R6eR7 

20550 DOR R73 

20560 SOR R7216~3 
20570 * 

20580 LDR R6/B2+NETFGS 
20590 SOR R626 

20600 ADD R6/R7 

20610 SOL R6e1 

20620 XOR R64B4+COMAND 
20630 LB R64*OO0E* 
20640 BBT CLRERR 

20650 JMP BS 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0040 


CHECK PACKET COUNT 

IF TOO MANY DCE MESSAGES THEN CLEAR 

ELSE ENTER DTE CLEARING 

ONE LESS PACKET wE CAN ACCEPT 

MOVE OLD COUNT AND NUMBER DOWN 

ADJUST SINCE THIS PACKET ALREADY COUNTED 


COMPUTE PACKETS IN PROGRESS 
MOVE SEQUENCE OFFSET DOWN 


COMPUTE FINAL PACKET NUMBER 


POSITION FOR COMPARE 


MUST MATCH EXACTLY 


ELSE ENTER DTE CLEARING 
RETURN 


a 


NETX 


001416 
001417 
001418 
001419 
0901420 
001421 


001422 
001423 
001424 
001425 


001426 
001427 
001428 
001429 
001430 
001431 
091432 
001433 
001434 


0071435 
001436 


001437 
001438 
001439 
001440 
001441 
001442 
001443 
001444 
001445 
001446 
001447 


001448 
0901449 


001450 
001451 


001452 
001453 


9001454 
001455 
001456 
007457 
001458 
Q01459 


O36E 
0370 
0372 
0373 


0374 
0376 
0378 


0379 


0373 
9370 
O37F 
0331 
0382 
03383 
0385 
0336 
03838 
Q338aA 


O038C¢ 
O38E 
9390 
0394 
0393 


0395 
0397 
0398 
O394 
Q39C 
O39D 
O39F 
O3AI 
O3A2 
O3A4 
O3A6 
O3A7 


O3A9 
O3SAA 
O3AC 


SOFTWARE 


0380 
B84C 
0400 
OF 80 


D330 
894C 
0400 


8380 


D380 
ACC4 
82C2 
EQOO 
0500 
8942 
2000 
EB80 
D870 
D330 


D380 
D380 
0200 
89C4 
OBOO0 


82C1 
8000 
0580 
82C1 
0040 
0500 
&2CC 
0890 
0500 
S200 
CO03 
0500 


CCD 1 
D380 
O3BF 


OS29 
OO3F 


0329 
OO3F 


0200 


0329 
OO3F 
9001 
0001 
Q3¢C4 
2430 
0788 


0351 
0000 


0039 
G3FS 


0008 


0200 
0008 


0200 
OO3F 


OSCR 
OO3F 


0200 


0000 


-SAF 


29660 
20670 
20680 
20690 
20700 
20710 


T 20720 
20730 
20740 
20750 


20760 
20770 
20780 
20790 
20800 
20810 
20820 
29830 
20840 


a4 29850 
20860 


20870 
20880 
20890 
20900 
20910 
x 20920 
20930 
20940 
209950 
20960 
20970 


20980 
20990 


21000 
21010 


21020 
21030 


21040 
21050 
21060 
X 21070 
21080 
21090 


1981/09/17 


EJECT 


* 


09:20:58 


HRF ASSEMBLER 


*SUPERVISORY COMMAND PROCESSING 


* 


ITXRR 


»* 


e ITXRNR 


* 


x 
* 


*PARSE DATA MESSAGE 


* 


IXOATA 


* 


* 


LNJ 
LBF 


JMP 


LNJ 
LD8 
LB 


BBT 
LBT 


LAB 
LDR 
LN J 


LNJ 
LNJ 
DC 

CMZ 
BSU 


LB 
BBF 
LB 
BBT 
LB 


B8BT 
LB 


BBT 
LDB 


LNJ 
DC 


BSs2CKRPS 
(BG4GtNETUSR) sD0CERNR 


rma | 
BS,/CKRPS 


(BG4GtNETUSR)-DCERNR 


CMDRLS 


BS/CKRPS 
B2,34+NETUSR 


B2+NETFGS -DTERNR*+DTEHNGtDTECLK 


el 
B2+NETFGSsDTECLK 


B6/RNRCLK 
RS s=ONESEC*90 
BS,/SRRCLK 


BSsCKSPS 
BS/NETCHK 
<CMDRLS 
B4+ADDRSS 
QLFMNSG 


BI+DEVFGS/SONOFF 


CMDRLS 
BI1+DEVFGS/DCRDTA 


CMDRLS 
(B4+NETUSR) -OUROWN 


DCEMSG 
(B4+NETUSR) -DTEPSC 


CMDRLS 
B4,=B1 


BS,/DVFINP 
<IXOTES 


DTSS L-6 HOST RESIDENT FACILITY 


CHECK PACKET ACKNOWLEDGEMENT 


DCE NO LONGER HUNG 


RELEASE COMMAND 


CHECK PACKET ACKNOWLEDGEMENT 
DCE CAN NO LONGER ACCEPT OUTPUT 


RELEASE COMMAND 


CHECK PACKET ACKNOWLEDGEMENT 
SEE IF CLOCK NEEDS SETTING 


SET IF NOT PROHIBITED 


CHECK PROHIBITORS 


HANDLE RESPONSE CLOCK GOING OFF 


MUST CONFIRM EVEN IF OUR INABILITY CONTINUES 


SET RECEIVE RESPONSE CLOCK 


CHECK PACKET SEQUENCE 


LOAD USERS DEVICE BLOCK 


IGNORE DATA IF NO ESTABLISHED USER 


CHECK IF DATA QUALIFIER SET 
HANDLE CONTROL INFORMATION 


IF USER GOING AWAY THEN SO DOES DATA 


ARE WE DISCARDING DATA 


YES -- DO SO 


IF OUR OWN CONNECTION THEN TREAT SPECIAL 


CANT TAKE INPUT IF PACKETS OUTSTANDING 


SO JUST PITCH DATA 


UTILIZE USER BLOCK 


NOTIFY THAT WE HAVE ENCOUNTERED FIRST INPUT 


NOBODY CARES 


PAGE 0041 


.=—_— —- -_- =«-_ a oer OE Oe hh 6[h)|hlhC 


@ oo 
‘ : 
t é 


NETX 


001460 
001461 
001462 
001463 
001464 
001465 
001466 
001467 
0014624 
001469 
007470 
001471 
0071472 
001473 
001474 
001475 
001476 
001477 
001478 
001479 
001480 
001481 


001482 
001483 


O3AD 
OSAF 
0337 
03B3 
0384 


0386 
0368 
9369 
O3BA 


0388 
0380 


O3RF 
03-60 
O3C2 


O3C4 
O3C6 
O3C7 
O3CY 


SOFTWARE 


9CC4 
9841 
B84] 
SES 
9601 


D380 
O0000 
0000 
0388 


ccc4 
8380 


5002 
D380 
8380 


8847 
2000 
D380 
8380 


OOOF 
0035 
0036 
0034 


0000 


JOOF 
Q16C 


0000 
0200 


9001 


O7AD 
0560 


x< 


1981/09/17 


21100 
21110 
2120 
e'ag 
21140 
re i te 3 
21160 
21170 
21180 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 
21280 
21290 
21300 
21310 


21320 
21330 


* 
IXDTE2 


* 


IXDTE3 


* 
* 


09:20:58 


LOB 
LDR 
LDR 
ADV 
LDB 


LNJ 
DC 
DC 
DC 


LOB 
JMP 


LDV 
LNJ 
JMP 


HRF ASSEMBLER 


B1,B4tHOSTNT 
R1,B1+MSGPTR 
R3,/B1+MSGLEN 
R3--HDRLEN 

B1/B1+MSGBUF 


BS/DVPINP 
<GBYTEF 
<FRBELKS 
<IXDOTE2 


B4,B4+HOSTNT 
XNETIM 


R3-XINESC 
B5S/,CVIMSG 
CMDRLS 


*RECEIVE RESPONSE CLOCK HAS POPPED 


* 


RNRCLK 


LBF 


LNJ 
JMP 


B7+NETFGS/-DTECLK 


BS/PRRCLK 
XNETOM 


OTSS L~6 HOST RESIDENT FACILITY 


RESTORE NETWORK BLOCK 
SET UP POINTER/LENGTH/BUFFER 


WEVE TAKEN CARE OF HEADER 
PROCESS INPUT 

BYTE GRAB ROUTINE 

END OF STRING ROUTINE 
MESSAGE FINISHED 


RESTORE NETWORK BLOCK 
PARSE NEXT MESSAGE 


NOTIFY PARTY THAT INPUT IGNORED 


THEN RELEASE COMMAND AND BUFFER 


NOTE THAT CLOCK NOT RUNNING 


POP CLOCK 


PAGE 0042 


ATTEMPT TO FILL OUTPUT REQUEST CIF ANY) 


e b F i 


NETX 


001484 
001485 
001486 
001487 
001488 
001489 
001490 
001491 
001492 
001493 
001494 
001495 
001496 
091497 
001498 
001499 
00171590 
001501 
001502 
091503 
001504 
007505 
001506 
001507 
001508 
001509 


091510 


O03CB 
O3C0 
O3CF 


0300 
0302 
0304 
03D6 
93D8 
O3DA 
0308 
939D 
O3DE 
O3EO 
O32 
O3E4 
O36 
USES 


O3EA 
O3SEC 
voce 
O3FO 
V3F1 


SOFTWARE 


89C1 
0900 
JED4 


B380 
BFC4 
B380 
BEGC 
ACC1 
AF 83 
E841 
GCEFB 
EF43 
E841 
EF43 
8743 
D380 
8744 


ccc4 
ACCS 
8942 
4000 
8330 


“SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L~-6 HOST RESIDENT FACILITY PAGE 0043 


21340 /EJECT 


21350 * 

21360 *HANDLE DATA FOR VIRTUAL CONNECTION WE GENERATED 

21370 * 

21380 DCEMSG CMZ BIt+tINPLEV IS THERE AN INPUTTER FOR THIS MESSAGE 
21390 BE CMDRLS NO -~- FREE MESSAGE 

21400 SWB B1,=B4 PASS MESSAGE ON -- UNEDITED 
27410 * 

21420 LNJ B3-/GET8LK BUILD MESSAGE HEADER 

21430 STB B3,B4+INPMSG 

21440 LNJ B3,GETBLK 

21450 STB B3,(B4+INPMSG) SAVE INFORMATION BLOCK 

21460 LOB B2,81+MSGBUF 

21470 STB B2,B3 LINK BUFFERS 

21480 LDR R6eB1+MSGLEN 

21490 ADV R6e-~HDRLEN ADJUST FOR HEADER 

21500 STR R6/B3+CURLEN 

21510 LDR R6eB1+MSGPTR 

21520 STR R6-33+NSBERR STEAL LOCATION FOR POINTER 
21530 Ct B3+MFLAGS 

21540 LNJ B5-NETINP USE SPECIAL NETWORK INPUT ROUTINE 
rag Gp 8 CL B4+INPMSG NOT IN USE ANYMORE 

21560 * 

27570 LDB B4,B4+HOSTNT RESTORE NETWORK CONTROL BLOCK 
21580 LDB B2,B4+NETUSR HANG UNTIL WE RECEIVE RESPONSE 
21590 LBT B2+NETFGS»~DTEHNG 

21600 JMP XNETIM PARSE NEXT MESSAGE 


eo e@-eeeeeeeeeeeseteereeteeeteeeeeeesee ee ee 


c i he 


ee ee ee 


ie ae tdi a eet oh ibe eae alg a ca ae v5 ced ee ae 
\ 


NETX 


001511 
001512 
001513 
001514 
001515 
0071516 


001517. 


001518 
001519 
001520 
001521 
0071522 
001523 
001524 
001525 
001526 
001527 
001528 


001529 
001530 
001531 
001532 
001533 
001534 
001535 
001536 
001537 
001538 
001539 
001540 
001541 
001542 
901543 
001544 
001545 
001546 
001547 
001548 


OSS 
O3F4 
O3F6 
O3F8 
Care 
V3.3 


OS3FD 
OSFE 
J3FF 
0409 


0402 
0404 
0406 
0407 
9408 


O40A 


0408 
QO40¢ 
049» 
QO40E 
O40F 
0410 
04114 


9412 
0413 
0414 
0475 
0415 
Q41? 
9413 


SOFTWARE 


FC D1 
9CC4 
9844 
F844 
FER 
7900 


A2DD 
88D7 
2d07 
0280 


ABAQ 
82CC 
08900 
0580 
ABAQ 


838A 


0419 
0244 
0244 
0457 
G244 
C244 
0244 


0244 
0464 
0466 
0244 
0434 
0244 
0244 


1981/09/17 


21610 
21620 


/EJECT 
* 


09:20:58 


HRF ASSEMBLER 


21630 *PARSE QUALIFIED MESSAGES 


21640 
21650 
21660 
21670 
21680 
21690 
21700 
21710 
21720 
21730 
21740 
21750 
21760 
21770 
21780 


21790 
21800 
21810 
21820 
21830 
21840 
271850 
21860 
21379 
21880 
21890 
21900 
21910 
21920 
21930 
21940 
21950 
21960 
21970 
ZAFSO0 


* 


QLFMSG 


* 


Pa 


* 
DTEQMG 


* 


DCEQMG 


LDB 
LOB 
LOR 
LDR 
ADV 
BEZ 


LLH 
DEC 
CMV 
BGE 


LAB 
LB 


B7,=B1 
B1-B4+MSGBUF 
R1/B4+MSGPTR 
R7/B4+MSGLEN 
R?s-HDRLEN 
R7/CLRERR 


R2ePOP B1+Ri 
R7 

R2eQASCMAX 
CLRERR 


B2/DTEQMG+R2 
(B4+NETUSR) -OUROWN 


at 
B2sDCEQMGt+R2 


(B2) 


<QMSGT1 
<CLRERR 
<CLRERR 
<QMSGT2 
<CLRERR 
<CLRERR 
<CLRERR 


<CLRERR 
<QMSGC1 
<QMSGC2 
<CLRERR 
<QMSGC3 
<CLRERR 
<CLRERR 


DTSS L-6 HOST RESIDENT FACILITY 


SAVE USERS BLOCK ASIDE 
LOAD MESSAGE PERTINENTS 


ADJUST FOR HEADER 
MUST HAVE INFORMATION 


CHECK MESSAGE TYPE 


CHECK AGAINST MAX CODE 
MUST HAVE PROPER CODE 


ASSUME MESSAGE TO DTE 
DID WE START THIS MESS? 


NO 
MESSAGE TO DCE 


ROUTE TO PROPER HANDLER 


PARAMETERS 

DISCONNECT 

SET PARAMETERS 

BREAK 

READ PARAMETERS 

ERROR 

SET AND READ PARAMETERS 


PARAMETERS 

DISCONNECT 

SET PARAMETERS 

BREAK 

READ PARAMETERS 

ERROR 

SET AND READ PARAMETERS 


PAGE 0044 


DOTSS L~6 HOST RESIDENT FACILITY PAGE 0045 


ONLY PARAMETER ALLOWED IS SPEED 
GET WHAT SHOULD BE SPEED 
NOPE 


GET SPEED CODE 

POSITION PROPERLY 

RETURN X25 NETWORK CODE 

SAVE SPEED DETERMINATION 
COMBINE SPEED WITH AREA CODE 


CONNECT TO SYSTEMS CONTROL 
IF NO MEMORY ~~ ENTER CLEARING CONDITION 


B7+DEVFGS-SONOFF+QMFLSH GO ONLINE 


Z°03020400071508000A000C01002112041C1810004007' 


e 
@ 
@ \NeETx SOFTWARE 1981/09/17 09:20:58 HRF ASSEMBLER 
001549 21990 /EJECT 
@ 001550 22000 * 
001551 22010 *HANDLE RECEIPT OF PARAMETERS FROM DCE 
: 001552 22020 * 
| @ 001553 9419 7002 22030 Q@MSGT1 CMY R7 #2 
7 001554 0414 0980 0244 22040 BNE CLRERR 
001555 O41¢C €389 9000 22050 LN J B6/GBYTEB 
@ 001556 O41 6D08 22060 CMV R6eP$RSPD 
001557 O41F 0930 0244 22070 BNE CLRERR 
001558 22080 * 
& 001559 9421 E330 9000 22090 LNJ B6/GBYTEB 
001560 0423 6098 22100 SOL R603 
001561 0424 F870 0800 22110 LDR R7e=X25TIP 
@ 001562 9426 ACC4 OD3F 22120 LDB B2,34+NETUSR 
001563 90428 E442 9006 cer 50 OR R6/B2+NTINFO 
001564 942A 8Dd42 04906 22140 SDI B2+NTINFO 
r 0071565 Q42C 03380 0000 22150 LNJ B57SYSCON 
001566 942€ 83380 0244 22160 JMP CLRERR 
001567 22170 # 
@ 001568 0439 8947 0002 22180 LBT 
“ 9432 8020 
: 001569 9433 ccc? OOOF 22190 LOB B4,B87+HOSTNT 
& 001570 22200 * 
= 001571 0435 D870 8900 22210 LDR R5-'8000' 
001572 0437 06380 0815 22220 LNJ B5/BLOMSG 
x ) 001573 0439 6C02 22230 LDV R6/Q5STPM 
001574 943A E?DD 22240 STH R6/POP 31+R1 
: 001575 9438 BCD1 22250 LDB B3,=B81 
@ 001576 943¢€ AB8D O44C 22260 LAB 32,/CPARAM 
001577 O43E 8752 22270 CL R2 
901578 O43F 3CEA 22280 LOV R3e-CPARML*2 
& 001579 22290 * 
001580 944) E2éE 22ou0. »1 LLH R6ePOP B2tR2 
0071581 0441 €3380 0000 2251.0 LNJ B6,PBYTEG 
@ 001582 9443 37FD 22320 BINC R3e.1 
001583 22330 * 
001584 0444 903 22340 LDB B1,=83 
@ 001385 0445 7£&17 22350 ADV R7e/CPARML*2+1 
091586 9446 £A3C4 0005 22360 LAB B2sB4+0UTQ 
00158? 9443 0330 0803 22570 LNJ B5,ADMSGQ 
& 001588 044A 8380 0200 22380 JMP CMDRLS 
001589 22390 * 
001590 944€ 0302 22400 CPARAM DC 
@ 0440 04900 
044&e O715 
I44F Q0800 
0450 OADO 
e 04517 Oco1 
0452 0021 
94535 1204 
e 0454 1C€18 
0455 1000 
e 
e 


RESTORE NETWORK BLOCK 
STACK SET BREAK AND DISCARD OUTPUT PARAMS 
SET PARAMETERS 


RETAIN START OF MESSAGE 
POINT TO CONNECT PARAMETERS 


SET LOOP COUNTER 
LOAD NEXT VALUE 
PLACE IN MESSAGE 
LOOP UNTIL EXHAUSTED 


RESTORE STARTING LOCATION OF MESSAGE 
INCREASE LENGTH 


ADD THIS MESSAGE TO OUTPUT QUEUE 
RELEASE MESSAGE AND CONTINUE 


q 


: 


CONNECT PARAMETERS 


(© eeevneweeeee eee ee ee ele le le 


NETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER OTSS L-6 HOST RESIDENT FACILITY PAGE 0046 


Y455 4007 
901591 000B 22410 CPARML EQU S-CPARAM NUMBER OF WORDS IN PARAMATERS 


wh ay SS gy ee Pee ie ee 1 


: 
‘ 
4 
4 
‘ 
. 
, 
‘ 
‘ 
4 
i 
4 
4 
‘ 
4 
‘ 
a 
| 
‘ 
4 
4 
‘ 
4 
# 
4 
4 
‘ 
‘ 
4 
4 
‘ 
1 
‘ 
4 
' 
‘ 
: 
' 
( 
‘ 
4 
4 
" 
4 
a 
4 
" 
" 
‘ 
i 
4 
‘ 
‘ 
i 
4 
‘ 
: 
: 
3 
: 
| 
| 
' 
i 


> hae ae 2 Pia os a fs 


NETX 


001592 
001593 
001594 
001595 
001596 
001597 
001598 
00159 
0016C0 
001601 


001602 
007603 
001404 
0071é05 
001606 
007607 
001608 
001609 
001610 
001611 
007612 
001613 
001614 
001615 
001616 
0017617 
001618 
001619 
001620 
001621 
001622 
001623 
001624 


001625 
001626 


001627 


001628 
001629 
001630 
001631 
001632 
001633 
001634 
001635 
001636 
001637 


045? 
0458 
O45A 
O045¢ 
0450 
O45F 
0461 
0462 


0464 


C466 
0467 


0468 
C464 
O46C 

1460 
O46F 
0470 
0474 
0472 


0473 
0474 
0475 
0476 
C477 
6478 
O47h 
0478 


O47C 
Q47D 


O47E 
O47F 
0480 


04862 


SOFTWARE 


7002 
0980 
E380 
6008 
0980 
8847 
0040 
8380 


8380 


7900 
7BFF 


E380 
6°06 
D856 
E380 
SDO7 
0900 
5D08 
0980 


8206 
FFFE 
O572 
82D6 
0001 
8A47 
0040 
OFF? 


6015 
O9F8 


TERE 
19E9 
8380 


8380 


0244 
0000 


0244 
0008 


0200 


0247 


0000 
0200 


9000 


0008 


0200 


0244 


1981/09/17 


22420 
22430 
22440 
22450 
22460 
22470 
22480 
22490 
22500 
22510 


ecre0 
22530 
22540 
22550 
22560 
22570 
22580 
22590 
22600 
22610 
22620 
22630 
22640 
22650 
22660 
2260 
22680 
22690 
22700 
22710 
22720 
22730 
22740 


22750 
22760 


eer 


22780 
22790 


226800 .; 


22810 
22820 
22830 
22840 
22850 
22860 
22870 


09:20:58 HRF ASSEMBLER 


/EJECT 
* 
*HANDLE RECEIPT OF BREAK INDICATION 
* 
QMSGT2 CMV R7 ee 
BNE CLRERR 
LN J B6é-GBYTEB 
CMV R6/P3DSOT 
BNE CLRERR 
LBF B7+DEVFGS-DCRDTA 
JMP CMDRLS 
* 
* 
*HANDLE RECEIPT OF CLEAR INDICATION 


* 
QMSG6C1 JMP 
* 
* 


CLROTE 


DTSS L-6 HOST RESIDENT FACILITY 


BREAK CONTAINS DISABLE OUTPUT PARAMETER 


CLEAR CONNECTION IF FALSE 

GET PARAMETER COMMAND 

DISCARD OUTPUT? 

NOPE =~ CLEAR CONNECTION IF FALSE 
DONT DISCARD RECEIVED MESSAGES 


RELEASE MESSAGE AND CONTINUE 


START DISCONNECT (NO DATA FORWARD) 


*HANDLE REQUEST TO SET PARAMETERS FROM DTE 


* 

QMSGC2 BEZ R724 
BODD R7 724 

* 

an LNJ B6é,GBYTEB 
BEZ R6/CMDRLS 
LDR R5eR6 
LNJ B6eGBYTEB 
CMV RS5/PS$SBRK 
BE we 
CMV RSs/PS$DSOT 
BNE pe 

* 
LB R6e"FFFES 
BBT 4 
LB R6'CQ001° 
LBS B7+CDEVFGS/DCRDTA 
B rs) 

* 

ae CMV R6021 
BNE 04 

* 

ar ADV RZ a2 
BNEZ RZral 
JMP CMDRLS 

* 

24 JMP CLRERR 


3 
; 
: 
| 
| 
: 
: 
| 
: 
: 
: 
| 


MUST HAVE PARAMETERS TO SET 
MUST BE PAIRED 


GET NEXT PARAMETER TYPE CODE 

STOP SCAN WHEN NATIONAL MARKER FOUND 
SAVE COMMAND ASIDE 

GET OPTION SETTING 

BREAK OPTIONS? 


DISCARD OUTPUT OPTION? 


CHECK FOR VALID SETTINGS 


COPY SETTING 


LOOP FOR NEXT PARAMETER 


MUST BE DEFAULT SETTING 


REDUCE OVERALL LENGTH 
LOOP FOR ALL PARAMETERS 
RELEASE MESSAGE AND CONTINUE 


HANDLE PARAMETERS WHICH CONFUSE US 


PAGE 0047 
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e 
@ 
@ 
@ 
@ 
@ 
e 
@ 
@ 
@ 
© 
@ 
e 
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@ 
® 
® 
e 
@ 


DTSS L-~6 HOST RESIDENT FACILITY PAGE 0048 


ONLY PARAMETER ALLOWED IS SPEED 
GET WHAT SHOULD BE SPEED 

NOPE 

GET SPEED CODE 

MUST NOT HAVE A VALUE 

PREP DATA QUALIFIED MESSAGE 
SUPPLY PARAMETERS 


RETURN SPEED 


LOAD AND RETURN SPEED 


ADD OUR MESSAGE TO QUALIFIED QUEUE 


ADD THIS MESSAGE TO OUTPUT QUEUE 


RELEASE MESSAGE AND CONTINUE 


 @. 
@e 
 @ wxverx SOFTWARE 1981/09/17 09:20:58 HRF ASSEMBLER 
| 00163% 22880 /EJECT 
@ 001639 22890 * 
001640 22900 *HANDLE REQUEST FOR PARAMETER VALUES FROM DTE 
| 001641 22910 * 
| @ 001642 0484 7D02 22920 .QMSGC3 CMY R72 
: 001643 0485 O9FD 22930 BNE 04 
| 001644 0486 €380 0000 22940 LNJ Bé-GBYTEB 
| é 001645 0483 6D0B 22950 CMV R6ePERSPD 
: 001646 0489 O9F9I 22960 BNE 24 
001647 O48A €380 0000 22970 LNJ B6,GBYTEB 
) 001648 048C 69F6 22980 BNEZ R604 
001649 22990 * 
901650 048b 0870 8000 23000 LOR R5~-*8000! 
@ 0014551 O48F 0380 0815 23010 LNJ B5/BLDOMSG 
001652 0491 4c¢00 23020 LDV R4,Q5PRMS 
001653 9492 C7DD 23030 STH R4,PO0P B1+tR1 
@ 001654 0493 4C€08 23040 LOV R4/PS$RSPD 
001655 0494 cC7dD 23050 STH R4,POP 681+R1 
001656 0495 ACC4& OUS3F 23060 LDB B2,B4+NETUSR 
@ 001557 09497 E842 0906 23070 LDR R6eB2tNTINFO 
; 001658 0499 E7DD 23080 STH R6ePOP BItR1 
; 091659 23090 * 
& 0014660 O49A 7E03 23100 ADV R73 
001661 0498 ABC4 0005 23110 LAB B2eB4+0UTQ 
S, 0071662 0490 0380 0803 23120 LNJ B52 ADMSGQ 
-e 001663 23130 * 
: 001664 O49F 8380 0200 23140 JMP CMDRLS 
@ 
@ 
e 
) 
@ 
@ 
@ 
®& 
@ 
e 


| 
: 


See ahi udate So kee Cig ee 


: 
: 
3 


NETX 


001665 
001666 
001667 
001668 
001669 


001670 
001671 


001672 
001673 
001674 
001675 
001676 
001677 
001678 


001679 
001680 
001681 
001682 
001683 
001684 
001685 
001686 
001687 
001688 
001689 
001690 
007691 
0016092 
001693 
001494 
001695 
001696 
001697 
001698 
001699 
001700 
001701 


O4A1 
04A3 
O4A4 
O4A6 
O4A3 
O4AI 


O4AA 
O4AC 


O4A9D 
O4AE 
0480 
0481 
0483 
0435 
0487 


048% 
O4BA 
O48¢ 
O4BE 
O4BF 
04C1 
O04C2 
04C3 


94¢€5 
046 
O04C? 
046 
04¢C9 
O4CA 
O4CC 


O4CE 


SOFTWARE 


82CC 
0800 
0500 
BI4C 
1000 
0500 


D380 
0200 


CC51 
8944 
0060 
b380 
D380 
D380 
4C02 


ccc4 
D879 
D380 
C79D 
E870 
4002 
0900 
EGU 


E7DD 
6048 
E7vD 
F851 
(EEE 
ABC4 
D380 


8330 


OO3F 


0244 
OO3F 


0000 


0008 
0009 


0000 
0009 


OOOF 
8000 
0815 


0008 


0108 


0005 
08023 


0200 


x< 
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23150 
23160 
23170 
23180 
23190 


23200 
23210 


23220 
23230 
23240 
25250 
23260 
eee) 
23280 


25270 
23300 
23310 
23320 
23330 
23340 
25550 
23360 
Zao? U 
23380 
23390 
23400 
23410 
23420 
23430 
23440 
23450 
23460 
23470 
23480 
23490 
23500 
23510 


09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0049 
JEJECT 
* 
* INTERRUPT INDICATION 
* 
ITXII LB (B4Gt*NETUSR) sOUROWN IF WERE INITIATOR THEN CANT HAPPEN 
BBT CLRERR CLEAR IF IT DOES 
LBT (B44tNETUSR) s«RSPOND SET FLAG TO RESPOND TO INTERRUPT 
BBT ae) IF ONE IN PROGRESS THEN IGNORE ANOTHER 
* 
LNJ BSsNETCHK FIND USERS BLOCK 
DC <CMDRLS FINISHED IF NO USER ASSOCIATED 
x 
LDB B4,=B1 WORK WITH NETWORK USER DEVICE BLOCK 
LBT B&4tDEVFGS/-DCRDTAtQMFLSH DISCARD DATA UNTIL BREAK RECEIVED 
LNJ B5,DQRBRK GIVE BREAK TO ALL PARTIES 
LNJ BS/DEVKOT KILL ALL DEVICE QUEUED OUTPUT 
LNJ BS,/DVKINP KILL ANY REMAINING INPUT 
LDV R4,Q3SSTPM SET DISCARD OUTPUT FALSE 
* 
ol LDB B4,B4+HOSTNT RESTORE NETWORK BLOCK 
LDR RS»*8000'° PREP DATA QUALIFIED MESSAGE 
LN J BS/BLDMSG 
STH R4,P0P B1+R1 
LDR R6e=PMSENO ASSUME WERE TO ENABLE OUTPUT 
CMV R4,Q$SSTPM IS THIS OPTIONS SETTING ATTEMPT 
BE ae YESSIR 
LDR R6e=PMEDS0 ELSE ITS INDICATION OF BREAK,.~DISABLE OQUTPUT 
* 
ec STH R6/POP B1+R1 STORE DISCARD OUTPUT COMMAND/OPTION 
SOR R628 
STH R6ePOP B1+R1 
LDR R7/R1 COMPUTE LENGTH 
ADV R7e-2 
LAB B2-B4+0UTQ 
LNJ B57ADMSGQ ADD THIS MESSAGE TO OUTPUT QUEUE 
* 
a2 JMP CMORLS RELEASE MESSAGE 
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001702 
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001706 
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001714 
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O4D7 
0406 
O4DA 
O4 DE 
U4DD 
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82cc 
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D380 
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8641 
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0580 
4€G5 
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25560 
2590 
23600 
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23620 
23630 
23640 


/EJECT 


* 


09:20:58 


HRF ASSEMBLER 


* INTERRUPT CONFIRMATION 


* 


eITXIC 


LB 


(B4+NETUSR) -OUROWN 


CLRERR 


BS /NETCHK 
<CMDRLS 
BI+DEVFGS ~-BRKACT 


CLRERR 
R4-Q3SIBRK 
el 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0050 


WE MUST BE INITIATOR FOR THIS TO HAPPEN 
CLEAR IF WERE NOT 


FIND USERS BLOCK 
FINISHED IF NO USER ASSOCIATED 
CLEAR USER BREAK FLAG 


WHAT FLAG? 
SEND INDICATION OF BREAK MESSAGE 
JOIN MESSAGE BUILDER 


7 
| 


| . 
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NETX 


001715 
001716 
OO ET 7 
00171% 
001719 
001720 
001721 
001722 
OOLres 
001724 
001725 
001726 
00172? 
001728 
0071729 
GOL LS 
001731 
OO a2 
001733 
001734 
OOS) 
001736 
001737 
001738 
001739 
007740 
001741 
901742 
001743 
001744 
001745 
001746 
001747 
001745 


001749 


O40F 
C461 
O4E3 
N4E4 
UGEG 
QO4E? 
O4ES 
OGER 
O4EC 


O4EE 
OGEF 


O4F1 
O4F3 
O4F4 
O4FOG 
ee aA 
Q4FY 
O4F8 
O4FD 
O4GFF 
0501 
g503 
0505 


QS06 
O5C8 


OSOA 
0508 
O050C 
0509 
OSOE 
OSOF 
O51C 
os 


SOFTWARE 


D380 
AB 80 
Ze 16 
D380 
ACD? 
2C02 
D380 
E&4&4 
D389 


eC0e 
AF4&4 


89C4 
0900 
D380 
O02C 
ACC4 
A844 
E380 
AFC4 
AF44 
88C4 
D389 
OFEC 


DBC? 
8380 


Ie ae 
soc 
4E45 
5420 
4053 
4720 
4552 
5220 


0000 
OSOA 


0000 


0000 
0036 
0000 


0035 


0036 


0000 


0034 
0035 
0000 
0034 
0035 
0036 
0000 


0001 
0000 
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23650 /EJECT 
23660 * 


09:20:58 


HRF ASSEMBLER 


23670 *PRINT MESSAGE IN ERROR 


23680 * 
23690 PNTERM 
23700 
23710 
2a(20 
23730 
23740 
23750 
23760 
23770 
23780 * 
23790 
23800 
23810 * 
23820 .1 
23830 
23840 
23850 
23860 
23870 
23880 
23890 
23900 
23910 
23920 
25950 
23940 * 
25950. 22 
23960 
259 7U: ® 
23980 NERMSG 


23990 NERMGL 


LN J 
LAB 
LOV 
LNJ 
LDB 
LDV 
LNJ 
LDR 
LN J 


LDV 
SR 


CMZ 
BE 

LNJ 
DC 

LOB 
LDR 
LNJ 
STB 
STR 
DEC 
LNJ 


EQU 


BS»MGSTRT 
B2sNERMSG 
R2eNERMGL *2 
BS /MGCOPY 
B2s=B7 

R2e2d 
BSsMGCOPY 
R6eB44+MSGLEN 
BS»MGHEX 


R22 
R2eB4+MSGPTR 


B4+MSGLEN 

oe 

BS/MGCHAR 
SASCSP 
B2,B4+MSGBUF 
R2eB4+MSGPTR 
B6,GBYTXB 
B2eB4+MSGBUF 
R2e8B4+MSGPTR 
B4+MSGLEN 

BS sMGHEXH 

cl 


B5,B7+1 
MGSEND 


"x25 NET MSG ERR 


$-NERMSG 


DTSS L~6 HOST RESIDENT FACILITY 


ALLOCATE MESSAGE 
ERROR MESSAGE 


QUALIFY MESSAGE 


SPIT LENGTH QUT 


POINT AT TOP OF MESSAGE 


ANY LEFT TO PRINT? 


SPACE ONCE 


LOOK UP NEXT BYTE 


LOAD AND BUMP 


UPDATE 


SPIT NEXT BYTE OUT 


RETURN AFTER SENDING MESSAGE 


IF MESSAGE FLAWED 
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@ 
@ NETX SOFTWARE -SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0052 
001750 24000 /EJECT 
@ 001751 24010 * 
001752 24020 * DEVICE WOULD APPRECIATE ANOTHER OUTPUT MESSAGE 
| 001753 24030 * 
@ 001754 0512 FCC4 OOOF 24040 XNTOTM LOB B7/B4+HOSTNT WORK WITH NETWORK DEVICE 
: 001755 0514 CED? 24050 SWE B4,=B7 
: 001756 0515 0380 0000 x 24060 LNJ B5,/CKOUTQ ANY OUTPUT TO BE FOUND? 
@ 001757 O517 0524 24070 DC <XNTOTX MORE OUTPUT 
| 001758 24080 * 
001759 0518 GED 24090 SWB B4,=B7 ADJUST REGISTERS 
) 091760 0519 8947 0008 24100 LBT B7+DEVFGS/TSKSNT HAVE WE SENT TASK TO CREATE MORE? 
051B 0020 
001761 O51c 0500 T 24110 BBT 1 YES «2 RETURN WITHOUT OUTPUT 
@ 991762 0516 50 24120 LDV RS/NETLEV 
001763 OS1E £680 O55A 24130 LAB B6sXNETOT BUILD SOME MORE OUTPUT 
001764 0526 8380 GOO00 X 24140 LNJ B83,BLDTSK 
@ 001765 24150 * 
001766 0522 8380 0000 x 24160 41 JMP TSKRITN NORMAL RETURN INDICATES NOTHING TO SEND 
001767 24170 x 
@ 001768 524 CED? 24180 XNTOTX SWB B4,=B7 ADJUST REGISTERS 
: 001769 0525 9cC? 0025 24190 LOB B1,B7+OMSGFB COPY A MESSAGE FROM NET TO DEVICE 
: 001770 0527 9847 0026 24200 LDR R1/B7+OMSGFP 
@ 001771 0522 0811 24210 LOR R5/B61+R1 
001772 OS2A E380 OO000 X 24220 LNJ B6sGWORDF 
001773 O52C E380 0000 xX 24230 LNJ B6seGWORDF 
-@ 001774 O52€ 9FC7 O025 24240 STB B1,/B7+0MSGFB SAVE UPDATED POINTERS 
; O01 FS N53G 9F47 0026 24250 STR R1,87+0MSGFP 
3 001776 24260 » 
@ 001777 9532 9c¢c4 0029 24270 LOB B1/B84+0MSGLB EXTEND DEVICE MESSAGE QUEUE 
001776 0534 9844 QO2A 24280 LDR R1,B4+O0MSGLP 
001779 0536 0E56 24290 SWR R57R6 
& 001780 953? €380 0000 X 24300 LNJ B6ePWORDG 
0017 8&1 0539 E&55 24310 LDR R6eR5 
001782 O53A E330 0900 X 24320 LNJ B6sPWORDG 
) 001783 053c 9FC4 0029 24330 STB B1-54+0MSGLB SAVE UPDATED POINTERS 
001784 O53€E 9F44 OOZ2A 24340 STR R1eB4+0OMSGLP 
001785 9540 8380 0000 x 24350 JMP TSKRTE EXCEPTION RETURN USED TO INDICATE MORE OUTPUT 
& 001786 24360 * 
001787 24370 * 
001788 24380 * ROUTINE TO HANDLE CALL BACK TO DEVICE 
@ 001789 24390 * 
001790 0542 82c7 O008 24400 XNTCBK LB B7+DEVFGS/SONOFF ARE WE STILL ONLINE? 
0544 8000 
@ 001791 0545 0580 T 24410 BBF oA 
001792 9544 ccc? 0015 24420 LDB B4/87+MOTHER INFORM DEVICE IF WAITING 
001793 0548 &2C4& 0011 24430 LB B&+tPFLAGSs/IDLEOT 
@ 054a 0400 
001794 0548 0500 0000 x 24440 BBT TSKRTN USE NORMAL ROUTINE TO WAKE DEVICE 
| 001795 24450 * 
@ 001796 054d 8380 0000 x 24460 «1 JMP SMCPXT GO BACK TO SLEEP 
@ 
@ 


ata oh 


@ @ 
@ @ 
@6 NETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L=~6 HOST RESIDENT FACILITY PAGE 0053 @ 
001797 24470 /EJSECT 
® 001798 24480 * & 
001799 24490 * ROUTINE TO CREATE A NETWORK PACKET TO BE SENT 
7 001800 24500 * 
| & 007801 O54F 8944 0011 24510 XNETOY LBT B4t+PFLAGS,-IDLEOT WE NEED OUTPUT & 
0551 04900 
001802 0552 8880 0558 24520 LAB B3eXNETOZ WAKE US UP IF NEEDED 
@ 001803 0554 BFC4 OOOA 24530 STB B3-B4t+tTSKRET eS 
0901804 9556 8389 0000 X 24540 JMP SMCPXT WAIT FOR SOMETHING INTERESTING 
001805 24550 * 
2 001806 9558 O8FC 24560 XNETOZ DC <NETERR NO EXCEPTION RETURN @ 
001807 055% OF8?7 24570 B SXNETOM ATTEMPT TO FILL OUTPUT REQUEST CIF ANY) 
001808 24580 * 
@ 001809 OQO55A CCD? 24590 XNETOT LDS B4,=B7 ADJUST REGISTERS @ 
; 0071810 0558 82C4 0008 24600 LB B4Ot+DEVFGSsSONOFF ARE WE STILL ONLINE? 
| O055b 8000 
& 001811 O55€ 0580 QO000 X 24610 BBF SMCPXT NO -- SIT AND WAIT S 
001812 24620 * 
001813 0560 8844 0011 24630 XNETOM LBF B4+PFLAGSsIDLEOT WE WILL FIGURE THIS OUT LATER 
@ Ue6¢e. 0400 e@ 
“ 001814 05635 &¢C4 0008 24640 LB B4+tDEVFGSs»~TSKSNT DID DEVICE STILL WANT MESSAGE 
é 0565 0020 
& 001815 0566 0580 0000 X 24650 BBF SMCPXT NO -- GO BACK TO SLEEP @ 
. 001816 24660 * 
: 001817 0565 82C4 0008 24670 LB B4+DEVFGSs/RSTRIM ARE WE IN RESTART MODE? 
a ) O56A 0400 @ 
: 0071818 0568 05280 1 24680 BBF Ke 
O01E19 O56C 6944 9008 246990 LBT B4+DEVFGSs/RSTRITX HAVE WE SENT INDICATION? 
@ O056E 0100 & 
001820 QO56F 0560 24700 BBT BXNETOY YES -~- NOTHING MORE TO SAY 
001821 24710 * 
r 001822 0579 8744 9039 24720 CL B&+ADDRSS SEND WITH ADDRESS=0 © 
0071823 0572 %82C4 0008 24730 LB B4+tDEVFGSs/RSTRIR ARE WE INVOKING A RESPONSE? 
Sore .6200 
@ 001624 90575 0580 T 24740 BBF 1 NO ~- A RESTART SENT BY US & 
0071825 0576 D&70 OOFF 24750 LDR R5e=SX25RC SEND RESET CONFIRMATION 
001826 057% 8844 ON08 24760 LBF B4+DEVFGSs¢RSTRIM#RSTRTIR#ERSTRTX LEAVE RESTART MODE 
@ 0574 0700 & 
0071827 05 7t 8380 0604 24770 JMP RSPNDA BUILD PROTOTYPE MESSAGE 
001828 24780 * 
& 001829 O57b D870 5469 24790 .1 LDR R5/=ONESEC*180 MUST FINISH INSIDE THREE MINUTES & 
001830 O57F €B&80 O021D 24800 LAB B6eREINIT ELSE WE SHOULD RE-ISSUE IT 
001&31 0581 FC D4 24810 LDB B7 7 =B4 CLOCKS WORK WITH <B7> 
& 001832 0582 0d38&0 QOODD X 24820 LNJ BS5/ADDCLK ONE MORE CLOCK @ 
001833 0584 bFC4& QOO0O0C 24830 STB B3,B4+RNTCLK SAVE CLOCK ASIDE 
001834 05865 0870 OOFB 24840 LDR RS/=SX25RI SEND RESET INDICATION 
re] 007835 G588 8380 06D8 24850 JMP RSPNDB BUILD PROTOTYPE MESSAGE @ 
001636 24860 * 
001837 QO58A4 A844 0038 24870 22 LDR R2e84+LSTUSR SCAN THROUGH USERS LIST FOR MESSAGE TO SEND 
& 001338 058¢ OFB80 T 24880 8 “5 JOIN TOP OF LOOP @ 
001839 24890 * 
001%40 O58b A844 0037 24900 .XNETOL LDR R2eB4+SVCUSR CHECK IF wE HAVE FINISHED SCAN 
@ @ 
@ @ 
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001841 
001842 
001843 
001844 
001845 
001846 
001847 
001848 
004 &49 
001850 
001851 
001852 
0071853 
001854 


OU T3855 


OS8F 
0591 


O35 
0594 
0596 
0598 
OS9A 
O59C 
O59 
OS9E 
OS9F 


5:44 
OSA2 
OSAS 


SOFTWARE 


A944 
0900 


8AD2 
A570 
AF4G 
AF&4 
ACC4 
BDA? 
0970 
ACA2 
AFC4 


8802 
1090 
0500 


0038 
OS4F 


OO7F 
0037 
0039 
QOOE 


OO3F 


U69F 
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24910 
24920 
24930 
24940 
24950 
24960 
24970 
24980 
24990 
25000 
25010 
25020 
25030 
25040 


25050 


09:20:58 


CMR 
BE 


INC 
AND 
STR 
STR 
LOB 
CMN 
BE 

LDB 
STB 


LBF 


BBT 


HRF ASSEMBLER 


R2eB4+LSTUSR 
XNETOY 


Re 

R2/"OO7F* 
R2eB4+SVCUSR 
R2eB4+ADDRSS 
B2eB4+NETMAP 
B2tR2 
BXNETOL 
BerB2rtRe 
B2,B4+NETUSR 


B2ésRSPOND 


XNETOR 


DTSS L~6 HOST RESIDENT FACILITY PAGE 0054 


SCAN FINISHED -~ NOTHING TO SAY 


ANALYZE NEXT VIRTUAL CONNECTION PORT 
ISOLATE TO ADDRESS BITS IN USE 


IS THERE A NON "READY STATE SET 
NO -- TRY NEXT CHANNEL 

COPY MAP BLOCK OVER 

ARE WE TO RESPOND TO SOMETHING? 


YES. == BUILD RESPONSE 


dee én Se, ee dos Sgt SP 


NE TX 


001856 
001657 
J01856 
001859 
001860 


001861 
001862 


001863 
007864 
001865 


001806 
001867 
001868 
001369 
001670 
001371 
OTe Le 
N01873 


001874 
001875 


001676 
001877 
001878 
001879 


00788C 
001881 
001&82 
001883 
001884 
001885 
0071886 
001887 
001888 
001889 
001890 
001891 
0071892 


DOVE 9 3 
001894 


001895 


O5A5 
OSA? 
O5A8& 
OSAS 
OSA 
QOSAC 


QSAE 
0580 
Sips gt 
0583 
O5B4 
0586 
O5-B7 
0539 


0588 
OSBbv 
OS5SBE 
OSBF 
G5e4 
O5Ce 
OSES 


95€4 
056 
Cie ang 


N5CY 
95 Cx 
O5CC 


O5CD 
OSCE 
OS Du 
0501 
O55 


0504 
O05Do6 
0507 
O05D9 
OSDB 
OSDC 


SOFTWARE 


8842 
8000 
0580 
G2C2 
4000 
0580 


8942 
&000 
0300 
0530 
D380 
S5EQS 
D380 
8380 


Sete 
4000 
0580 
82C2 
2000 
Us HC 
OFFO 


8842 
2000 
B380 


D380 
0666 
FCD1 


CCo? 
D380 
FC D4 
CCC? 
3980 


Ser 
8000 
6500 
82C? 
4000 
0580 


0001 


0001 
0698 
0001 
O74A 
0752 


O0815 
OOFS 


9001 


0001 


9001 
Q79C 


0000 


QV000 


OOOF 


0008 


0668 
0008 


0668 
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25060 /EJECT 


25070 


* 


25080 * CHECK 
25090 * 


25100 


25710 
251-20 


25130 
25140 
25150 


25160 
25170 
ras aleey @ 
25190 
25200 
25210 
e2ca0 
22230 


25240 
exe 50 


25260 
coco 
25280 
25290 


25300 
25310 
25320 
co550 
25340 
25350 
25360 
25370 
25380 
22590 
25400 
25410 
25420 


25430 
25440 


25450 


od) 


ee 


* 


oXNETOE 
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IF RNR LOGIC 


LEP 


BBF 
LB 


HRF ASSEMBLER 


INVOKED 
B2+NETFGS-DTERNR 


soe 
B2+NETFGS,DTEHNG 


SNDRRX 
B2tnwETFGS/DTERNR 


B5eUCKRPS 
4 
BS/UPDRPS 
RSeSX25NR 
B5/BLDMSG 
XNETOX 


B2+NETFGS,DTEHNG 
033 
B2+NETFGS/DTECLK 


231 
24 


B2+NETFGS,DTECLK 
B3ekKRRCLK 

BS /NETCHK 
<SNDQMX 

B7 7=B1 

B4e=87 

BS,0VGOUT 

B7 2=B4 
B4,/B7+HOSTNT 
R37.26 
B7+DEVFGS/SONOFF 


SENDQM 
B7+CEVFGS/OFLTSK 


SENCDQM 


DTSS L-6 HOST RESIDENT FACILITY 


HAS RNR BEEN SENT 


ARE WE STILL HUNG? 

FORCE RECEIVE READY OUT 

NOT READY HAS BEEN SENT 
ANYTHING TO CONFIRM? 

NO -~- SEND DATA IF WE GOT ANY 
UPDATE RECEIVE SEQUENCE 


BUILD PROTOTYPE MESSAGE 
RETURN CPRINT MONITORS) 


ARE WE STILL UNABLE TO CONTINUE 


IF RESPONSE CLOCK RUNNING? 


NO =~ SEND RNR 
SEND DATA ~~ DONT CONFIRM PACKETS 


RESET CLOCK IF IT WAS RUNNING 
RESET RECEIVE RESPONSE CLOCK 

SEE IF USER BLOCK EXISTS 

NO ATTEMPT TO SEND QUALIFIED MESSAGES 
WORK WITH USERS BLOCK NOW 
RESTORE USERS BLOCK TO FOREFRONT 
ANY OUTPUT? 

MOVE USERS BLOCK ASIDE 

RESTORE NETWORK CONTROL BLOCK 
BUILD OUTPUT MESSAGE 

ARE WE OFFLINE NOW? 


NOPE -~ TRY SENDING QUALIFED MESSAGES 


INSURE WE DONT KILL CONNECTIONS BEFORE 


WE GET SPEED BACK TO START THEM UP 
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NETX 


001896 
001897 
0013898 
001899 
001900 
001901 
001902 
001903 
001904 
001905 
001906 
001907 


O03 Os 
001909 
001910 
GOR 1 
001912 
0019173 


001914 
001915 
001916 
001917 
001918 
001919 
001920 
001921 
001922 
001923 
001924 
001925 


001926 
001927 


001928 
001929 
091930 
091931 
001932 
001933 
001934 
001935 
001936 
001937 
001938 
001939 


OSDE 
Q5€E0 
OSE1 
O5SE2 
OSE4 
OSE6 


OSER 
OSEA 
OSE 
OSEC 
USEF 
QS FO 
NSF 
OSF4 
O5SFS6 
Chen as 


OSFY9 
OSFS 
OSFD 
OSFE 
SEE 
0600 
0602 
0604 


0666 
0653 
0609. 
0608 
069d 
Q6DE 
0519 
0611 


0613 
0615 
9617 
0619 


0613 
N61C 
O67E 


SOFTWARE 


ABC4 
9CD? 
0060 
0680 
0960 
B330 


82CC 
C800 
0580 
D380 
8280 
B380 
874C 
894C 
6000 
8380 


D870 
D380 
6091 
E?7DD 
SAD? 
ABC4 
D380 
8330 


B2CC 
0492 
0590 
82C7 
0020 
0500 
8755 
D380 


9FC4 
9FC4 
DF 44 
&744 


CCov? 
6330 
D380 


0002 


O8FC 
O8FC 
00006 


OO3F 


O7BC 
C797 
OF FC 
OOS3F 
OO3F 


O69F 


8009 
0815 


0005 
0803 
0666 


OO3F 


068D 
0008 


0668 
0815 
OO36 
0034 


0035 
0036 


9000 
0000 
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25460 
25470 
25480 
25490 
25500 
25510 
259-20 
22950 
25540 
25550 
259560 
25570 


25580 
25590 
25600 
25610 
25620 
25630 


25640 
256590 
25660 
25670 
25680 
25690 
25700 
25710 
25720 
25730 
25740 
25:¢90 


25760 
25770 


25780 
22090 
25800 
25:50 
25820 
25830 
25840 
25850 
25869 
253870 
25880 
25890 


JEJECT 


* 


09:20:58 


HRF ASSEMBLER 


*FORCE DISCONNECT FROM NETWORK 


* 


* 


>) 


LAB 
LDB 
DQA 
BC F 
BNE 
LNJ 


LB 


BB F 
LNJ 
LNJ 
LNJ 
CL 

LBT 


JMP 


LDR 
LNJ 
LOV 
STH 
INC 
LAB 
LNJ 
JMP 


LB 


BBT 
L8 


BBT 
Ck 
LNJ 


STB 
STB 
STR 
CL 


LOB 
LNJ 
LNJ 


B2sB4+SOFTRQ 
Bi,=B7 


NETERR 
NETERR 
B3,FNETSK 


(B4+NETUSR) -OUROWN 


o> 

BS/CLRUSR 
B3,nKTOCLK 
B3,KRRCLK 
(B4+NETUSR) 
(B4+NETUSR) S+XSTCLR 


XNETOR 


R5-'80C0' 
B5,BLDMSG 
R6eQSIDSC 
R64POP B1+R1 
R7 
B2,B4t+0UTQ 
BS-/ADMSGQ 
SNDQMX 


(B4+NETUSR) -DTEPSFt+DCERNR 


SENDRR 
B7+DEVFGSsQMFLSH 


SENDQM 
R5 
BS/BLOMSG 


B1-B4+MSGHDR 
B1,/B4+MSGBUF 
R14B4+MSGPTR 
B4+MSGLEN 


34,=87 
BSsDVKINP 
BS,DVGCUT 


DTSS L~6 HOST RESIDENT FACILITY PAGE 0056 


RELEASE USERS BLOCK 


RELEASE THIS USER 
HANDLE FUNNY MACHINE 
WHY ME LORD 

RELEASE NETWORK BLOCK 


IF OUR CONNECTION THEN START DISCONNECT 


FREE USERS INFORMATION 

RESET ANY PREVIOUS CLOCK 
RESET RECEIVE RESPONSE CLOCK 
ENTER DTE CLEARING MODE 


ENTER RESPONSE GENERATOR 


BUILD QUALIFIED MESSAGE 
BUILD PROTOTYPE MESSAGE 


INCREASE MESSAGE LENGTH 
ADD MESSAGE TO QUEUE 


NOW SEND QUALIFIED MESSAGES CIF ABLE) 
ANY REASON NOT TO SEND? 


YES ~~ QUALIFIED WONT EVEN FLY 
ARE WE TO SEND QUALIFIED MESSAGES FIRST? 


YES -- MAYBE QUALIFIED WILL FLY 
NO NETWORK COMMAND YET 
BUILD PROTOTYPE MESSAGE 


SAVE FIRST BUFFER FOR RETURNING 
SAVE BUFFER 

SAVE POINTER 

SAVE VACUOUS LENGTH 


WORK WITH USER AGAIN 
CLEAR ANY INPUT QUEUED 
GET FIRST BLOCK OF OUTPUT 


; 
: 
| 
! 


eeeeeeeeeeesere#ve#r#feeeeeeseeseewese ®@ 


: 
| 
| 


eel ek a en eC ee Ge ee eae Se SNS Li ea 


Rates a Fat Ge hoe ore 


* a Sh ce 
: in to 
oy ne Sa Sy 5 et ree ee es 


NETX 


001940 
001941 
001942 
001943 
091944 
001945 
001946 
901947 
001948 
901949 


007950 
091951 
001952 
ORB he eee ee: 
901954 
001955 
001956 
001957 
001958 
001959 
001960 
001961 
001962 


001963 
001964 
001965 
001966 
001967 
001966 
001969 
001970 
001971 
001972 
001973 
001974 
VOTo? S 
001976 
U01977 
001978 
001979 
001980 
0019861 
001982 
001983 
001984 
001985 
001986 
001987 
001988 
001989 


0620 
0622 
0624 
9625 


0623 
062A 
04623 


O62C 
Voce 
0630 
0631 
0632 
C0633 
06354 
0630 


0636 
0637 
0639 
NG3A 
06368 
063D 
O63E 
063 


0649 
0641 
0642 
0644 


0645 
064? 
064 & 


0649 
06468 
0640 


O64F 
0651 
0652 


0653 
C629 


C657 


SOFTWARE 


BCC4 
ACC3 
A843 
F843 


&2CB 
0800 
0580 


E380 
E380 
88D 3 
BAD? 
3900 
PDE 
GS FG 
OF FD 


E29) 
82C4 
0008 
0500 
E576 
6900 
6D07F 
O97 


(D7F 
0374 
ES20 
SAD? 


E530 
8803 
SP EE 


AFC3 
AF43 
FF43 
D380 
59°C F 
OF 80 


FF43 
D380 


FCD4 


OOOF 
0034 
0035 
0036 


OO3F 


0009 
0000 


0008 


OO7F 


0000 


0000 


0034 
UGs5 
0036 


0000 


0036 
0006 


1981/09/17 


25900 
25910 
25920 
25930 
25940 
25950 
25960 
25970 
259380 
25990 


26000 
26010 
26020 
26030 
26049 
26050 
26060 
26070 
26080 
2ou90 
26100 
26110 
26120 


26130 
26140 
26150 
26160 
26170 
261780 
26190 
25200 
26210 
26220 
26230 
26240 
26250 
26260 
Zocru 
26280 
26290 
26300 
26310 
26320 
26330 
26340 
26550 
26360 
2O5 10 
26380 
26390 


09:20:58 HRF ASSEMBLER 


/EJECT 


* 


x*COPY OUTPUT MESSAGE LOGIC 


* 

oy LOB B3,B4+HOSTNT 
LD8 B2-33+MSGBUF 
LDR R2eB3+MSGPTR 
LDR R7433+MSGLEN 

* 
LB (B3+NETUSR) -OUROWN 
BBF «fz 

k 

“rd LN J B6/GBYTEF 
LNJ 386/PBYTXG 
DEC R3 
INC R7 
BEZ R34075 
CMV R7 oie? 
BLE an | 
B af} 

* 

ate LLH R6eB1+tR1 
LB B4+DEVFGS/OTPURE 
BBT wt 
AND R64'OO7F! 
BEZ R6e.74 
CMY R6eSASCRO 
BE 274 

* 

eis CMV R7 e127 
BG «f> 
LN J B6ePBYTXG 
INC R7 

* 

074 LNJ B6sGBYTEF 
DEC R3 
BNEZ Rave 2 

* 
STB B2,63+MSGBUF 
STR R2eB3+MSGPTR 
STR R7/B3+MSGLEN 

* 
LNJ BS/CVROUT 
BNE Z R3ee/7 
B ero 

* 

aC STR R7B3+MSGLEN 
LNJ BS,-CVROUT 

* 

76 LDB B7 7=B4 


DTSS L~6 HOST RESIDENT FACILITY 


LOAD BUFFERS» ETC. 


IF OUR CONNECTION THEN DONT EDIT DATA 


COPY STRAIGHT OVER 


ONE LESS FROM MESSAGE 
ONE MORE INTO MESSAGE 
IF EMPTY THEN CUT AND SEND 


ARE WE AT MESSAGE MAX LENGTH 
NOPE =~- ROOM LEFT -= COPY AGAIN 
IF MESSAGE FILLED THEN CUT AND SEND 


LOAD BYTE TO TRANSMIT 
IF PURE OUTPUT THEN SAVE IT 


ISOLATE TO DATA BITS 
IGNORE NULLS 
IGNORE FILLS 


ARE WE PAST MESSAGE MAX 
YES: == NO ROOM = EXTT 
SAVE IN OUTPUT CHAIN 

ONE MORE INTO THE HOPPER 
RELEASE LAST BYTE 

TRY AGAIN 


SAVE INTERIM BUFFERS.» ETC. 


RETURN USED OUTPUT 


JOIN COMMON WRAPUP 


SAVE FINAL LENGTH 
RETURN USED OUTPUT 


RETAIN USERS BLOCK 


PAGE 0057 


cri iee 
> } 4 
Oe ae ke fr | 


NETX 


001990 
001991 
001992 
001993 
001994 
001995 
001996 
001¢99¢ 


0658 
OOSA 
O65C 
Q65E 
O65F 
0660 
0662 
0664 


SOFTWARE 


cece 
9CC4 
FR4S4 
7EQ5 
7D905 
0980 
E380 
8380 


OOOF 
0038 
0036 


O6E1 
00006 
O5CD 


1981/09/17 


26400 
26410 
26420 
26430 
26440 
26450 
26460 
26470 


09:20:58 


LDB 
LOB 
LDR 
ADV 
CMV 
BNE 
LNJ 
JMP 


HRF ASSEMBLER 


B4/B7+HOSTNT 
B1,B4+MSGHDR 
R7/B4+MSGLEN 
R7 »HDRLEN 

R7 #HDRLEN 
XNETOW 
B6Os/FRBLKS 
XNETOE 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0058 


RESTORE NETWORK BLOCK 

LOAD TOP BUFFER IN OUTPUT MESSAGE 
RESTORE ACTUAL MESSAGE LENGTH 

ADD HEADER LENGTH TO TOTAL 

VACUOUS MESSAGE? 

NO ~~ FINISH MESSAGE 

RELEASE MESSAGE WHICH NEVER FILLED 
CHECK OFFLINE LOGIC 


eeeeeeeeeeeeeeeee%eee%06200 @ @ @ 


| 
| 
| 
: 


4 


t ane a oe Sisley Ge. “Ui é I- $ 


NE TX 


001998 
001999 
002000 
002701 
002002 
002003 
002004 


002005 
N002006 


002007 


002008 
002009 
002010 
002011 
O0201e 
002013 
002014 


002015 
902016 
002017 
002018 
002019 
002029 
002021 
002022 
002023 
002024 
002025 
002026 
pU2027 
902026 


002029 
002030 
002031 
002932 
002033 
002034 
002035 
002036 
002037 


O002038 
00239 
002040 
002041 
002042 
002943 
002944 
002045 


0666 


066d 
O66A 
066% 


066C 
O66E 
0670 
O67 4 
G67e 
0674 


Q674 
O67? 
0678 
O67A 
O67C 
067d 
O67F 


0631 
9682 
9685 
0684 


0685 
63? 
O33 
J6sa 
0638 


9628p 
O63F 
0691 
9692 
0694 
695 


069% 


0693 
QOIA 
0693 
069) 


SOFTWARE 


FC80 


Sele 
0402 
03.22 


ABCS 
D&44 
D404 
0062 
06630 
09380 


8944 
9000 
F341 
BC C1 
BF31 
B380 
8330 


0200 
D&O7 
0063 
063) 


&DD?7 
0906 
8847 
0020 
0500 


ACC4 
D280 
0580 
sete 
4000 
0583 


8389 
D380 
Peace 
D389 
8330 


O8Fe 


OO3F 


0005 
0039 


OSFC 


0039 


M906 
0004 


0000 
O6E1 


O8FC 


0908 


O95) 


1981/09/17 


26480 
26490 
26500 
26510 
26520 
26530 
26540 


26550 
26560 
26570 
26580 
26590 
26600 
26610 
26620 
26630 
26640 


26650 
26660 
26670 
26680 
26690 
26700 
rane g ae 
26720 
26730 
25740 
26750 
26760 
2OF70 
26780 


26790 
26800 
26810 
26820 
263830 
26840 
26850 
26860 
26870 


26880 
26899 
26900 
26910 
26920 
26930 
26940 
26950 


JEJECT 


* 
* CHECK 
x 


SNDQMX 


* 


SENDQM 


* 


* 
* 
* CHECK 
* 


SENDRR 


* 


el 


* 
SNDRRX 


09:20:58 


HRF ASSEMBLER 


IF QUALIFIED MESSAGE WILL FLY 


is 


LDB 


LB 


BT 


LAB 
LOR 
OR 

DQH 
BC F 
BNE 


LBT 


LDR 
LDB 
STB 
LNJ 
JMP 


BL 

LDR 
QOH 
BC F 


CMN 
BE 
LBF 


BBT 


B7sZERO 


(B4+NETUSR)/-DTEPSFHDCERNR 


SSENDRR 


B2eB4+0UTQ 
RS-B4+ADDRSS 
R584 


NETERR 
ol 


B4+ADDRSS~-'9000' 


R74B1+RWORD 
B3B1+UWORD 
B3,B1 
B3,RELBLK 
XNETOW 


ac 
R581 


NETERR 

=B7 

SSENDRR 
B7+DEVFGS/QMFLSH 


XNETOE 


DTSS L-~6 HOST RESIDENT FACILITY PAGE 0059 


CLEAR USER BLOCK REGISTER 
ANY REASON NOT TO SEND? 
TRY CONFIRMING SOME PACKETS 


SEE IF ANY CONTROL MESSAGES STACKED 


HANDLE FUNNY MACHINE 
NONE OR OURS FOUND 


SET QUALIFIER ON CFOR TRACE) 
GET ACTUAL MESSAGE LENGTH 

GET MESSAGE BUFFER ADDRESS 

POP BUFFER ADDRESS WITH RELEASE 
FINISH MESSAGE 


NONE FOUND 
PUT UNWANTED BLOCK BACK 


HANDLE FUNNY MACHINE 

IS THERE A USER BLOCK TO WORK WITH 
NOPE 

QUALIFIED MESSAGES ARE FLUSHED 


RETRY WHOLE MESS IF FLUSH WAS SET 


PACKET CONFIRMATION NEED BE SENT 


LOB 
LN J 
BBF 
LB 


BBF 
JMP 
LN J 
ADV 


LNJ 
JMP 


B2,34+NETUSR 
35”/UCKRPS 

ra 
B2t+NETFGS.~DTEHNG 


SBSNDRRX 
XNETOL 
BSsUPDRPS 
R5e5X25RR 


35/3LDMSG 
XNETOX 


CHECK IF ABLE TO CONFIRM BLOCKS 
ANYTHING TO CONFIRM? 

NO 

ARE STILL HUNG ON LAST BATCH 


NOPE -~ ACKNOWLEDGE BLOCKS 


LOOP FOR ANOTHER USER 


UPDATE RECEIVE SEQUENCE 
ALWAYS RESPOND WITH RECEIVE READY 
BUILD PROTOTYPE MESSAGE 
RETURN CPRINT MONITORS) 


’ 


eo. @ 
@ @ 
@ Nerx SOFTWARE -SAF 1981/09/17 09:20:58 HRF ASSEMBLER DISS L-6 HOST RESIDENT FACILITY PAGE 0060 ry 
002046 26960 /EJECT 
e 002047 26970 * @ 
002048 26980 *RESPOND BIT SET -- GENERATE CONTROL MESSAGE 
002049 26990 * 
@ 002050 069F A&4C OO3F 27000 XNETOR LDR R2,-(B4+NETUSR) BRANCH BASED ON MAJOR STATE e 
| 002051 O6A1 AS70 £000 27010 AND R2,=XSMODE 
002052 O6A3 2013 27020 SCL R23 
@ 902053 O6A4 ABAD O6A7 27030 LAB B2-RSPTABtR2 @ 
002954 Q6A5 §3BA 27049 JMP (B2) CALL PROCESSOR 
002955 27050 * 
@ 002056 O6A?7 O8FC 27060 RSPTAB DC <NETERR QO -- READY (TOTALLY OFF) r 
002057 O6A3 O6AF 27070 DC <RSPNDI 1 -- DTE WAITING (SEND CALL REQUEST) 
002058 O06A% 946C0 27080 DC <RSPND2 2 == DCE WAITING (RESPOND TO CALL RQST) 
e 002059 O6AA Cé6C? 27090 DC <RSPND3 3 -- DTE CLEARING @ 
: 092060 06A3 O6CF 27100 DC <RSPNDG 4 -- DCE CLEARING 
, 002061 O6AC 06d3 27110 DC <RSPNDS 5S -- INFORMATION TRANSFER (DTE) 
@ 002062 O6AD 0607 27120 DC <RSPNDG 6 -- INFORMATION TRANSFER (DCE) Py 
902063 O6AE O8FC 27130 DC <NETERR 7 -- UNDEFINED 
002064 27140 * 
@ 902065 O6AF £380 923e 27150 RSPND1 LAB B6eWTGCLK WHEN CONNECT SENT» SET 90 SECOND CLOCK S 
: 002066 0681 D870 2A30 27160 LDR RS ,=ONESEC*9O 
: 002067 0683 D380 0786 27170 LNJ B5,STOCLK 
e 002968 0685 5C08 27180 LDV RSe$X25C1 THEN SEND CALL REQUEST PACKET e 
002069 0685 ABRO O6DE 27190 LAB B2,CRAMSG COPY CALL REQUEST MESSAGE 
002070 0688 2Cc06 27200 Lov R2-,CRQMGL 
e@ 002071 27210 e 
: 902972 0689 D380 0815 27220 LNJ B5,BLDMSG BUILD MESSAGE PROTOTYPE 
002473 0683 9857 27230 LDR R12R7 
@ 002074 068C 0380 0000 X 27240 LNJ BS/MGCOPY e 
002075 O63E— F851 27250 LDR R7/R1 MOVE LENGTH ASIDE 
002076 O68F OFID 27260 B SRSPNDX THEN SEND AND EXIT 
e 002077 27270 * ®@ 
0902078 96CO 874C OD3F 27280 RSPND2 a (B4+NETUSR) ENTER INFORMATION TRANSFER STATE 
002079 06C2 ¥894C OO3F 27290 LBT (BGtNETUSR) »X$ITTX 
© 06C4 Agd0 e 
002080 O06C5 SCOF 27300 LDV R523X25CC CONFIRM CALL 
002081 06C5 OFS&E 27310 B SRSPNDA WITH NO ADDITIONAL INFORMATION 
e 002082 27320 * e 
902083 O6C?7 EB380 O23E 27330 RSPND3Z LA3 B6ewWwTGCLK WHEN CLEAR SENTs SET 90 SECOND CLOCK 
002984 O6C2 0870 2A39 27340 LDR R5e=O0NESEC*9O 
e 002085 06C3 D380 0786 27350 LNJ B5S,/STOCLK @ 
002086 O06Cd 5C¢13 27360 Lov R5-$X2501 THEN SEND CLEAR REQUEST PACKET 
002087 O6CE OFBA 27370 B $RSPNDB WITH ZERO BYTE FOLLOWING COMMAND 
e 002088 27380 * e 
002089 O6CF 8380 O7F9 27390 RSPND4 LNJ B3-RLSMAP GO READY WHEN CLEAR CONFIRMATION SENT 
002090 06D1 5C17 27400 LDV R5-$X250C 
e 002091 0602 OF82 27410 B SRSPNDA WITH NO ADDITIONAL DATA e 
002092 27420 * 
002093 0603 5C27 27430 RSPNDS LDV R5-SX25IC NOTHING SPECIAL WHEN INTERRUPT CONFIRMED 
e 002094 27440 * e 
002095 0604 D280 0815 27450 RSPNDA LNJ BS,/BLDMSG BUILD PROTOTYPE MESSAGE 
002096 U6D. OF86 27460 B SRSPNDX THEN SEND AND EXIT 
@ ® 
@ @ 


: 
| 
: 
: 


@ 
@ NETX SOFTWARE -SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0061 
002097 27470 * 
& 002098 O6D7 5C€23 27480 RSPND6 LDV RSe$X25I11 NOTHING SPECIAL WHEN INTERRUPT SENT 
002099 27490 * 
002100 O6D2 D380 0815 27500 RSPNDB LNJ BS /BLDMSG BUILD PROTOTYPE MESSAGE 
002101 O6DA &7DD 27510 CLH POP B1+Ri WE DONT NEED ANY CAUSE 
002102 O6DB B8AD? efoeg INC R7 INCREASE MESSAGE LENGTH 
002103 27530 * 
002104 %6bdC 8380 O6FB 27540 RSPNDX JMP XNETOX RETURN (PRINT MONITORS) 
002105 27550 * 
002106 Q6DdDE COO0O0 27560 CRAQMSG DC Z*Q000000000000° SIX BYTES OF NOTHING 
QOoOdF QOCOO 
N6EQ O000 
002107 0006 27570 CRQMGL EQU 6 


page TE 


i 


4 


et ite 


| 
3 
: 
: 
. 
. 
: 
: 
: 
: 


NETX 


002108 
002109 
002110 
002111 
002112 
002113 
002114 
002115 
002116 
002117 


002118 


002119 
002120 
002121 
002122 


002123 
002124 
0021725 
C02126 
002127 
002128 
002129 
002130 
002131 


O6E1 
CGeES 
Q6ES 


OOE? 
COE 
Q6EA 
O6EB 


OOED 
OGEE 
Q6OEF 
C6FO 


OOF 
UOrDS 
O6FS 


O6F? 
OOF 


SOFTWARE 


9FC4 
FFAG 
E380 


Ea4C 
1006 
D791 
DF44 


GE FF 
82D6 
0003 
05006 


EB8O 
D&70 
6380 


9CC4 
FBG 


U2SE 
5460 
0786 


0034 
0036 


1981/09/17 


27580 
27590 
27600 
27610 
27620 
27630 
27640 
2760 
27660 
27670 
27680 
27690 
2/7700 
27710 
27720 


27730 
27740 
ger 
27760 
27770 
er 780 
27790 
27800 


/EJECT 


* 


09:20:58 


HRF ASSEMBLER 


DTSS L~6 HOST RESIDENT FACILITY 


*IF FIRST PACKET OUT THEN SET CLOCK FOR CONFIRMATION 


* 


XNETOW 


STB 
STR 
LNJ 


LDR 
LOV 
STH 
STR 


ADV 
LB 


BBT 
LAB 
LDR 
LN J 


LOB 
LDR 


27810 *FALL THROUGH 


B1/B4+MSGBUF 
R7eB4+*MSGLEN 
B6,UPDSPS 


R6/(B4+NETUSR) 
R1e2+HDRLEN-1 
R5/E1+R1 
R5eB4+COMAND 


R6e-DTEPSI 
R6/DTEPSC 


et 


B6ewTGCLK 
RS se=ONESEC*180 
B5/STOCLK 


B1,-84+MSGBUF 
R7/B64+MSGLEN 
TO RETURN.J.ePRINT MONITORS 


SAVE BUFFER ADDRESS/LENGTH 
CREATE <I> WITH PACKETS ROTATED 
WORK WITH CONTROL BITS 

POINT AT NETWORK COMMAND 

SAVE ACTUAL COMMAND 

SAVE COMMAND FOR TRACE 


CHECK PACKET COUNT 
FOR OTHERS OUTSTANDING 


YES -- CLOCK SET ALREADY 


WINDOW MUST MOVE WITHIN THREE MINUTES 


RESTORE BUFFER ADDRESS/LENGTH 


PAGE 0062 
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@ NE TX SOFTWARE -~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0063 @ 
002132 27820 /EJECT 
@ 002133 27830 * @ 
002134 273840 *ADD MESSAGE TO OUTPUT QUEUE» PRINT TRACE IF APPLICABLE 
002135 27850 * 
, @ 002136 O6OFR ACD1. 27860 XNETOX LDB B2,=B1 MOVE BUFFER ADDRESS ASIDE @ 
002137 O6FC 9cc4 0029 27870 LOB B1/B4+0MSGLB ADD INTO CHAIN 
092138 OO6FE 9844 OO2A 27880 LOR R14B4+OMSGLP 
S 002139 0700 AF91 27890 STb B2B1+R1 @ 
0927468 QO701 £814 27900 LOR R6,E74+R1 SAVE BUFFER ADDRESS 
OO2 41 Orgs E380 OOOO x 27910 LNG BbOr,PWORDG 
@ 002742 0704 E857 27920 LDR R67R7 SAVE MESSAGE LENGTH @ 
0021743 Q705 EF44 0036 27930 STR R6eB4+MSGLEN 
0027144 0707 E380 O000 4 27940 LNJ B6ePWORDG 
@ 002145 27950 * ® 
002146 C709 8E70 0083 27960 LEV =SLVDIStHANGLYV FREEZE WHILE WE UPDATE CHAIN 
002147 O7CB GFC4& O029 27970 STB B1eB84+0OMSGLB UPDATE STOPPING POINT 
& 002148 0700 9F44 OO2A 27980 STR R1,/B4+0MSGLP & 
002149 O7O0F 8844 0008 27990 LBF B&+DEVFGS-TSKSNT NO LONGER A TASK TO CREATE OUTPUT 
OF 14 0020 
@ 002156 GP he 8E7O &SOSF 28000 LEV =$SLVEXI RETURN TO NETWORK LEVEL @ 
: 002151 28010 * 
9 002152 0714 EB30 0542 28020 LAB B6sXNTCBK ATTEMPT A CALLBACK 
@ 002153 0716 D844 0009 280 30 LOR RS,-B4+TSKINF @ 
002154 071% FCD4 28040 LDB B7»=B4 
‘ 002155 O719 B380 0000 x 28050 LNJ B3,BLDTSK WAKE DEVICE UP 
@ 002156 28060 * @ 
) 002157 971716 E804 28070 LDR R684 ARE wE MONITORING THE NETWORK 
: 092158 O71C E900 0000 4 22080 CMR R6eMONNET 
@ 002159 OQO77E 0900 T 2&090 BE a] YES =~ SEND MESSAGE @ 
002760 O71F OC 7F 28100 LDV R6,*7F! 
002167 0720 E544 0039 28110 AND R6e8B84+ADDRSS ARE WE MONITORING CERTAIN NETWORK LINE 
@ 002462 P22 E404 28120 OR R6,64 @ 
002163 G7 23 EYOO O000 x 28130 CMR R6eMONNET 
002164 OF 25 OS &0 T 28140 BNE a5 NOPE -~ SKIP MONITORS 
& 002165 28150 * @ 
002766 0726 0380 OO000 4 28160 .1 LNJ BSsMGSTRT START MONITOR MESSAGE 
002167 28170 * 
@ 002176% U/72s FEO4 28180 LDR R6eB4 PRINT NETWORK ADDRESS @ 
002169 072° D380 0000 x 28190 LNJ BS »MGHEX 
002170 C7 2B D380 CLCCCO x 22200 LNJ 35/MGCHAR 
r 002171 O72D OO2D 28210 DC BASCDS @ 
002172 28220 * 
002173 O72E E844 0039 28230 LOR R6e,84+ADDRSS PRINT SUPPLIED ADDRESS 
& 002174 0730 D340 0000 X 28240 LNJ B5 »-MGHEX @ 
002175 07 32 D580 JOOG x 28250 LNJ BS»MGCHAR SEPARATE DATUM 
002176 0734 53:2. F 28260 DC ZBASCS*Z'OIOOTH$ASCES 
@ 002177 28270 * 2 
002178 0735 F844 OO0O3A 28280 LOR R6eB4+COMAND SPIT COMMAND OUT 
002179 0737 =b3380 0000 b 28290 LNJ BSsMGHEXH 
@ 002180 0739. D380 OO00 4 28300 LNJ BS»MGCHAR SPACE ONCE @ 
002181 0738 0020 28310 DC BASCSP 
002182 28320 * 
eS © 
@  ] 


SOPs Le Bhat Mae A 9 eee eee Ee ee eT PN ad 


ate 


er Soe Bee bot wn £ 


jak 


NETX 


002183 
002184 
0027245 
002186 
002187 
002188 
0027189 
002190 
002191 
002192 


O73C 
OSE 
Crs? 
0740 


0742 
O744 


O7246 
0748 


SOFTWARE 


E844 
6EFB 
6900 
D380 


D380 
E644 


EF44 
8350 


0036 


0000 
0000 
0037 


0036 
0000 


1981/09/17 


28330 
28340 
26350 
28360 
28370 
28380 
28390 
28400 
28410 
23420 


09:20:58 


LOR 
ADV 
BEZ 
LNJ 


LNJ 
LDR 


STR 
JMP 


HRF ASSEMBLER 


R6eB84+MSGLEN 
R6e7HDRLEN 
R602 
BS/MGHEX 


BS sMGSEND 
R6e84+SVCUSR 


R6e34+LSTUSR 
SMCPXT 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0064 
TEST WHETHER DATA EXISTS 


NOPE -~ SEND MESSAGE 


FORCE MESSAGE 
SET STOPPING POINT 


GO TO SLEEP UNTIL SOMETHING ELSE HAPPENS 


* Har San 'y ce eats a Ce 3 


NE TX 


002193 
002194 
002195 
002196 
002197 
002198 
002199 
002200 


0022701 
002202 
002203 
002204 
002205 
002206 
002207 
002208 
002209 
002210 
062211 
002212 
002213 
002214 
002215 
002216 
002217 
002218 
Co2219 
O02220 
002221 
O02222 
O07 c2.5 
002224 
Oe 23 
002226 


O74A 
O74C 
O074D 
O74F 
07590 
O64 


0752 
0754 
9755 
0756 
OF 3¢ 
0758 
0759 
O75A 
07528 
075C 


0750 
UC2£ 
O75F 
0760 
C6) 
0762 
0764 
0765 


OM gow, 
9758 
O76A 
0768 


SOFTWARE 


E842 
6043 
E642 
8206 
0007 
8385 


C842 
E854 
703 
704D 
E254 
70C3 
704D 
E854 
6046 
EAS? 


6003 
F854 
700A 
7083 
E654 
E570 
C656 
CF42 


D854 
b570 
59041 
&385 


0001 


0001 


0001 


01¢7 


0001 


01C0 


-SAF 


28430 
28440 
28450 
28460 
28470 
28480 
28490 
28500 


28510 
28520 
28530 
28540 
28550 
28560 
28570 
28580 
28590 
28600 
28610 
28620 
28630 
28640 
28650 
28660 
23670 
28680 
28690 
28700 
28710 
28720 
28739 
28740 
28750 
28760 


1981/09/17 


/EJECT 
x 


09:20:58 


HRF ASSEMBLER 


OTSS L-6 HOST RESIDENT FACILITY PAGE 0065 


*ROUTINE TO ROTATE RECEIVED PACKET SEQUENCE COUNT 


* 


UCKRPS 


* 


UPDRPS 


LDR 
SOR 
XOR 
LB 


JMP 


LOR 
LOR 
DOR 
SOR 
SUB 
DOR 
SOR 
LOR 
SOR 
AND 


SOL 
LDR 
SOL 
DOL 
XOR 
AND 
XOR 
STR 


LDR 
AND) 
SOR 
JMP 


R64eB2+NETFGS 
R663 
R6,B2+NETFGS 
R6,D0CEPSF 


B5 


R4,B2+NETFGS 
R6eRG 

R773 

R7216-7-3 
R6eR7 

R73 

R7 416-3 
R6eR4 

R65 

R6eR7 


R643 

R7eRS 

R7e16-6 

R703 

R6eR4 
R6/=DCEPSNtDCEPSF 
R4,R6 
R4,B2+NETFGS 


RSeR4 
RS5/=DCEPSN 
R546-5 

85 


CHECK IF PACKETS REMAIN TO BE CONFIRMED 


ANY IN WINDOW LIT? 


RETURN I¢8B) TRUE IF CONFIRMATION NEEDED 
EXAMINE DCE CONTROL BITS 
MOVE MAX/COUNT DOWN 


COMPUTE AMOUNT TO CONFIRM 


POSITION OLD PACKET COUNT 


STORE NEW VALUES 


SAVE NEW VALUES 


RETURN WITH <R5> BITS 847-6 = 


CONFIRM COUNT 


13 


kee : Me +o 


NETX 


002227 
002228 
002229 
002230 
002231 
002232 


BO2745 
002234 
U022 33 
002236 
OO 22 5.7 
002238 
902239 
090224) 
092241 
002242 
002243 
002244 


902245 


002246 
002247 
002248 
O002249 
002250 
092251 
002252 
002255 


O76C 
O76E 
0770 
O74 
0772 
0774 


0775 
0777 
vr779 


Q77A 
97 7B 
O77C 


wer 
O77E 
QO? 7F 
0780 


0781 
078e 
0734 
0785 


SOFTWARE 


ACC4 
Sece 
4000 
0500 
D330 
OF 80 


D842 
D570 
5041 


E8 U2 
6E01 
EFOQ2 


70C2 
7OGE 
8807 
EAS? 


6001 
E570 
D456 
8386 


OO3F 
0001 


0752 


0001 
01¢0 


OOOE 


28770 
28780 
28790 
28800 
28810 
28820 


28830 
283840 
28850 
28360 
28870 
28880 
28890 
28900 
28910 
28920 
28930 
28940 
28950 
28960 
28970 
28980 
28990 
29000 
29010 
29020 
29030 


JEJECT 


* 


~SAF 1981/09/17 09:20:58 HRF ASSEMBLER 


*ROUTINE TO BSUILD <I> MESSAGE HEADER 


* 


UPOSPS 


LDB 
LB 


B82,B4+NETUSR 
B2+NETFGS/DTEHNG 


al 
B5/UPDRPS 
ae 


R5/,B2+NETFGS 
R5/=DCEPSN 
R5-6-75 


R6062 
R6/DTEPSI 
R6sB2 


R72 
R7216-72 
R7 
R6-R7 


R6e1 
R6-'QOOE' 
R5eR6 

Bé 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0066 


IF WERE HUNG..DONT CONFIRM PACKETS 


ELSE UPDATE RECEIVE PACKET SEQUENCE 


RETURN LAST CONFIRMATION COUNT 


ADD AND COMPUTE OUR PACKET COUNT 
ONE MORE 


MOVE OLD COUNT AND NUMBER DOWN 


LESS ONE FOR OUR CURRENT MESSAGE 


POSITION FOR COMMAND 


BUILD FINAL <I> COMMAND 


errr re Te CC ere CTT CTT Te 


] © 
@ 
@ Net SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0067 ® 
002254 29040 JEVECT 
® 002255 29050 « e 
002256 29060 *START TIMEOUT / RESPONSE CLOCK 
| 002257 29070 * 
@ 002258 0786 FCC4 OO3F 29080 STOCLK LDB B7-B4+NETUSR THESE CLOCKS WORK WITH MAP BLOCK @ 
| 002259 0788 ABC? 0002 29090 LAB B2,-B7+TOCLOK POINT AT CLOCK BEING SET 
: 002260 O78A OF80 T 29100 B 4 
@ 002261 29110 * @ 
7 002262 O786 PEEL OOS 29120 .SRRCLK  LDB B7,54+NETUSR THESE CLOCKS WORK WITH MAP BLOCK 
002263 0786 ABC? 0003 29130 LAB B2-57+RRCLOK POINT AT CLOCK BEING SET 
e 002264 29140 » e 
002265 O78F 8p82 29450 44 CMN B2 MUST NOT BE ANOTHER CLOCK RUNNING 
002266 0796 0980 O8FC 29160 BNE NETERR 
e 002267 0792 9cDd5 29170 LDB B1,=85 SET RETURN ASIDE e 
002268 0792 0380 0000 x 29180 LNJ BS /ADDCLK ADD OUR OWN LITTLE CLOCK 
002269 O795 BFB32 29190 STB B3,B2 SAVE CLOCK ELEMENT IN MAP BLOCK 
e 002270 0796 8381 29200 JMP B1 RETURN WITH CLOCK SETUP @ 
002277 29210 
002272 29220 *KILL TIMEOUT / RESPONSE CLOCK 
@ 002273 29230. @ 
: O02274 -O20F FCCE “HUsE 29240 KTOCLK LDB 87,B4+NETUSR THESE CLOCKS WORK WITH MAP BLOCK 
| 002275 0799 ABC? 0002 29250 LAB B2,-67+TOCLOK POINT AT CLOCK BEING KILLED 
@ 002276 0796 OF8O T 29260 8 4 ® 
: 002277 29270 & 
k G02278 “OPS “Fees COs 29280 .KRRCLK LOS B7eB4+NETUSR THESE CLOCKS WORK WITH MAP BLOCK 
@ 002279 O79E ARC? 0003 29290 LAB B2-B7+RRCLOK POINT AT CLOCK BEING KILLED e 
002280 29300 * 
002281 07A0 9C80 O8FB 29310 21 LDB B1,ZERO LOAD AND RESET CLOCK BLOCK 
@ 002282 O7A2 9EB2 29320 SWB 81s B2 e 
002283 O7A3 8DD1 29330 CMN =B1 WAS THERE A CLOCK 
002284 07A4 0900 i 29340 BE =? NO 
e 002285 O7A5 ECCI 006 29350 LDE B6,B1+RWORD LOAD RETURN ADDRESS ® 
002286 O7A7 8780 NON0 x 29360 JMP KILCLK RESET CLOCK AND RETURN 
CO2Z&7 29370 * 
e 002288 O7AGS 8383 29380 .2 JMP B3 RETURN WITHOUT KILLING CLOCK ® 
002289 29390 * 
002290 29400 *POP TIMEOUT / RESPONSE CLOCKS 
® 002291 29410 « e 
002292 U7AA ABC? 0002 29420 PTOCLK LAG B2,/B7+TOCLOK POINT TO CLOCK BEING POPPED 
002293 O7AC OF8O T 29430 B <4 
@ 002294 29440 * @ 
002295 U7AD ABC7 0002 29450 .PRRCLK LAB B2,-B7+RRCLOK POINT TO CLOCK BEING POPPED 
002296 29460 * 
eo 002297 O7AF 8D82 oy 0 CMN B2 CLOCK MUST NOT BE RESET ® 
002298 O78C C900 O8FC 29480 BE NETERR CLEAR WITHOUT KILL 
002799 O7B2 8702 29490 CL B2 RESET CLOCK CELL 
@ 002300 078% ccc7 0004 29500 LDB B4,B7+NETBLK RESTORE NETWORK DEVICE BLOCK e 
002301 0785 0847 0005 29510 LDR RS eB7+NETADR SAVE VIRTUAL ADDRESS 
002302 0787 DF44 0039 29520 STR RS ,BGtADDRSS 
e 002303 O7B9 FFC4 OO3F 29530 STB B7/E4+NETUSR SAVE USER POINTER ® 
002304 0788 8385 29540 ymp BS 
e @ 
&@ @ 


weer anh 2 he ae oe 
1 


© 
@ 
NETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0068 @ 
002305 29550 /EJECT 
002306 29560 * & 
N02307 29570 *ROUTINE TO CLEAR STACKED MESSAGES FOR USER 
002308 29580 * 
002309 O78BC 4C7F 29590 CLRUSR LOV R4,'7F* BUILD FINAL ADDRESS r 
002310 O78dB (C544 0039 29600 AND R4eB4+ADDRSS 
002311 O7BF C404 29610 OR R4,B4 
0023512 29620 * & 
002313 O7CG ABC4 ONO005 29630 .1 LAB B2eEB4+0UTR FIND AND CLEAR STACKED CONTROLS 
002314 O7Ce D&54 29640 LDR RS7k4 
002315 Q7C3 C06e 29650 DQH & 
002316 O07C€4 0680 O8FC 29660 BCF NETERR HANDLE FUNNY MACHINE 
0023517 O7cC6& 0200 T 29670 BL 5 
GO2316 O7C? O98D T 29680 BNE 02 PUT BACK AND CONTINUE e@ 
002314 O7C8 6&CCi1 0004 29690 LDB 33,61+UWORD GET DATA ADDRESS 
002320 O?CA BFS 29700 STB 83-61 LINKEM 
002321 O7CB E380 O000O X 29710 LNJ B6/FRBLKS @ 
002322 O7CD OFF3 T 29720 B o1 
002323 29730 * 
002324 O7CE D801 29740 22 LOR R561 PUT BLOCK BACK @ 
O02525 Ufcr -C063 29750 QOH 
002326 O70N0 O68O OFC 29760 BCE NETERR HANDLE FUNNY MACHINE 
002327 9770 * @ 
0902328 O7bD2 ABC4 DO3C 297 SO: 5 LAB B2,B4+CONQ FIND CONNECT BLOCK 
002329 O704 D854 29790 LDR RSeR4 
OO2530 0705. D062 29800 DQH & 
N02331 0706 Q680 OBFC 27310 BC F NETERR HANDLE FUNNY MACHINE 
Q02552  O7 D8) 0200 T 29820 BL ~ 
NN 2555 OCOR. O00 T 29830 BE 04 IF FOUND THEN RELEASE & 
002534 O7DA 0801 29840 LDR R5-B14 PUT BLOCK BACK 
9902335 0708 0063 29850 QOH 
002336 O7tcC 0680 O8FC 29860 BCF NETERR HANDLE FUNNY MACHINE @ 
O02S35:%- “O77 OE. “ORORA T 29879 3 >) 
092338 29880 * 
002339 O7DF BCCi 0004 29890 4 LD8 B83,/B1+UWORD GET DATA ADDRESS & 
002340 O7ET BF81 29900 STB 83,81 LINKEM 
002341 OQ7E2 £3380 9000 Xx 29910 LNJ B6,/FRBLKS 
002342 29920 ~x rd 
NI2S45° CES 65.55 C7950 “eS JMP 35 RETURN HAVING DELETED ALL SPECIAL STORAGE 
@ 
& 
® 
e 
e 
& 


ee ee ney ae 


NETX 


002344 
002345 
002346 
9002347 
092348 
002349 
002350 
J02351 
002352 
UO? 35:3 
002354 


002355 
002356 
092357 
992358 
O02539 
002360 
002361 
002362 
002363 
002364 
002365 
002366 
002367 
002368 
002369 


Ores 


O7E7 
O7E9 
O7EA 
O7ES 
Q7ED 
Ore 
O7 FO 
O7F? 
OTE 
O7F6 
O7F8 


Gory 
O7 FB 
DAES 
O7FE 
080G 
0304 


SOFTWARE 


B380 


BFC4 
PFA2 
8703 
8743 
8943 
CN12 
GPGSs 
AF4&3 
8743 
o?43 
8385 


ACC4 
CC 7F 
AS44 
9C80 
9QEA2 
83380 


0000 
OOSF 
0901 
0001 
0004 
J005 


0002 
0003 


OOOE 


0039 
QOOFB 


0000 


1981/09/17 


29940 
29950 
29960 
29970 
29980 
29990 
30000 
30010 
30620 
30030 
30040 


30950 
30060 
30070 
30080 
30090 
507.00 
30110 
30120 
30130 
30140 
30150 
30160 
30170 
30180 
30190 


/EJECT 


* 


*BUILD MAP ENTRY 


* 


BLDMAP 


* 


BLDMPX 


* 
* 


09:20:58 


LNJ 


STB 
ST8 
CL 
CL 
LBT 


STS 
SER 
CL 
CL 
JMP 


HRF ASSEMBLER 


(FILLED IN) 


B3,GETBLK 


B3-B4+NETUSR 
B3,B2+R2 

33 

B3+NETFGS 


B3+NETFGS »-DCEPXX 


B4,B3+NETBLK 
R2,B3+NETADR 
B3+TOCLOK 
B3+RRCLOK 

BS 


*RELEASE NETWORK MAP BLOCK 


* 


RLSMAP 


LD8 
LOV 
AND 
LDB 
SWB 
JMP 


B2/B4+NETMAP 
R2,*7F* 
R2eB&+ADDRSS 
BisZERO 
B1,B2+R2 
RELBLK 


DTSS L-6 HOST RESIDENT FACILITY 


BUILD MAP BLOCK 


SAVE AS USERS MAP 
SAVE IN MAP 
RESET NETWORK FLAGS 


INITIAL DCE PACKET COUNTERS 
RETAIN NETWORK CONTROL BLOCK 
RETAIN ADDRESS 


RESET TIMEOUT CLOCK 
RESET RECEIVE RESPONSE CLOCK 


FIND AND ZERO MAP LOCATION 


RELEASE AND RETURN INDIRECTLY 


PAGE 0069 


gear ey 


re rere ee Bove 


NETX 


002370 
002371 
QO2372 
N002373 
002374 
002375 
002376 
002377 
002375 
DO 279 
002380 
002381 
002382 
002383 
0902384 
002385 
002386 
00238? 
002388 
002389 
002390 
Que 74 
O02392 
002393 
002394 
002395 
002396 
USS 7 
002398 
002399 
002400 
002401 
002402 
0024C3 
002404 
002405 
092406 
002407 
O002402 


0805 
0305 
0807 
0809 
0808 
980c 
O80E 
O&8&O0F 
0810 
Ce14 
0s 
0314 


0815 
Gen Brg 
O&1& 
0819 


O814 
C816 
O81) 
O81F 
O82 


Q&%?ee 
NR?4 
O8&e5 
0826 
O827 
0825 
O82¢ 
OSCR 


SOFTWARE 


B380 
9FC3 
GF43 
FF43 
= te 3 
D544 
D404 
BED1 
CO 61 
C680 
9EDS 
&385 


E5380 
TCU 
&7DD 
37D0D 


GOOLE 
E544 
E470 
5880 
E470 


EF 4&4 
6056 
Ef DD 
6058 
E7 DD 
D7DD 
DF4G 
8385 


0000 
0004 
0007 
0006 


0039 


O8FC 


QOVUO 


O03A 


-SAF 


30200 
30210 
30220 
50230 
30240 
30250 
30260 
30270 
30260 
30290 
30300 
30310 
30320 
$05.30 
30340 
30350 
30360 
30370 
30380 
30390 
30400 
30410 
30420 
30430 
30440 
30450 
30460 
30470 
30480 
30490 
30500 
30510 
S520 
30530 
30540 
30550 
30560 
50500 
30580 


1981/09/17 


JEJSECT 


* 


09:20:58 


HRF ASSEMBLER 


*ADD MESSAGE TO QUEUE 


* 


ADMSGQ 


* 
* 


LN J 
STB 
STR 
STR 
LDV 
AND 
OR 

SW3 
QOT 
BCE 
SWB 
JMP 


*BUILD MESSAGE 


* 


BLDMSG 


* 


* 


LNJ 
LDV 
CLH 
CLH 


LDV 
AND 
OR 
BGE2Z 
OR 


STR 
SCR 
STH 
SCR 
STH 
STH 
STR 
JMP 


B3,GETBLK 
B1,B3+UWORD 
R1,B3+RWORD+1 
R7eB3+RWORD 
R5/'7F! 
ROeB4+ADDRSS 
R584 

B3,=81 


NETERR 
B1,=B3 
BS 


56GFBBLK 
R7sHDRLEN 
POP B1+R1 
POP B1+t+R1 


R6,'7F! 
R6/,B4+ADDRSS 
R6°1000° 
RSvel 
R6-*8000' 


R6e,B4+ADDRSS 
R608 

R6ePOCP BIFtR1I 
R68 

R6ePOP BitR1 
RS5/FPOP B1+R1 
R5e64+COMAND 
B5 


DTSS L-6 HOST 


GET QUEUE ELEMENT 


SAVE BUFFER 
AND POINTER 
AND LENGTH 


BUILD QUEUEING VALUE 


ADD MESSAGE TO SUPPLIED QUEUE 
HANDLE FUNNY MACHINE 


RETURN WITH MESSAGE QUEUED 


PREP A CHAIN 
RETURN LENGTH 
SAVE ROOM FOR 
SAVE ROOM FOR 


BUILD ADDRESS 


TURN GENERAL ID ON 
IF NOTED AS DATA QUALIFIED THEN SET BIT 
TURN QUALIFIER BIT ON 


SAVE FINAL ADDRESS (FOR TRACE) 
STORE MSB OF ADDRESS 


STORE LSB OF ADDRESS 


SAVE NETWORK COMMAND 
CFOR TRACE) 


SAVE COMMAND 


RESIDENT FACILITY PAGE 0070 


OF PROTOTYPE 
ADR 
CMD 


CC ee ee ee ee ee ee ee ee ee eee 


‘ 
ee 


sy ersten bite, yi ee Sb Ost ses ES 
‘ 


NE TX 


002409 
002410 
002411 
002412 
002413 


002414 
002415 
0024176 
002417 
002418 
002419 
002420 
002421 
Q02422 
002423 
002424 
OON2425 
002426 
000427 
002426 


002429 
002430 
002431 
002432 
002433 
002434 
002435 
002436 
002437 
0024364 


002439 
002440 
002441 
002442 
002443 
002444 
002445 
002446 
002447 
002448 
002449 


002459 
902451 


C82c 
O82E 
O82F 
0830 
0331 
0233 


0834 
0836 


OS3& 
O83A 
0836 
083C 
O8Sbd 


QB3F 


344 
03843 
Oa4a 
0845 
03846 


84a 
JB49 
O84A 
J84A 
0849 
O84F 
Y35) 
0352 
0855 
9854 


SOFTWARE 


8847 
$000 
0505 
OCD? 
83380 
OF 8C 


COC? 
8380 


82C? 
8000 
0579 
CCD? 
D380 


8380 


age Of 
8000 

5 FS 
CCO? 
D380 


FC D4 
ae es 
A504 
ccc4 
ACC4 
ACA2 
6342 
4090 
0561 
OFEB 


0008 


0000 


OOOF 
0560 


GO08 


000% 


0000 


QOOF 
QOOE 


0001 


~SAF 


30590 
30600 
30610 
30620 
30630 


30640 
30650 
rs 30660 
30670 
30680 
30690 
30700 
30.7'1:0 
30720 
30730 
30740 
30750 
30760 
36770 
30780 


30790 
30800 
X 30810 
30820 
X 30830 
30840 
30850 
36860 
30870 
30880 


30890 
30900 
X 30910 
30920 
30930 
30940 
30950 
30960 
30970 
30980 
30990 


31000 
31010 


1981/09/17 


/EJECT 


* 


09:20:58 


HRF ASSEMBLER 


*EVERY SLAVE PROCESS HAS TERMINATED 


* 


TSKOFF 


x 
* 


*ATTEMPT TO 


* 


TSKCBK 


* 
* 


LDB 
JMP 


*START OUTPUT 


* 


TSKSRO 


* 
TSKXIT 
* 
* 


L6& 

BBT 
LDB 
LNJ 


JMP 


*STOP INPUT 


* 
TSKSTI 


* 


B7+DEVFGS/SONOFF 


STSKCBK 
B1,=B7 
B3,FNETSK 
STSKXIT 


WAKE PROTOCOL IF WE ARE IDLED 


B4,B87+HOSTNT 
XNETOM 


B7+DEVFGS »~SONOFF 


STSKCBK 
B4,=B7 
BSs/DEVKOT 


SMCP AT 


B7+DEVFGS+SONOFF 


S$TSKXIT 
34,=B7 
BSsDVKINP 


37 ,=B4 

R2»,'7F! 

R2B4& 
B4/B4+tHOSTNT 
B2/B4+NETMAP 
B2,B2+R2 
B2+NETFGS-DTEHNG 


STSKC BK 
STSKXIT 


DTSS L=-6 HOST RESIDENT FACILITY 


(GO OFFLINE) 


FORCE OFFLINE 


CHECK IF CALLBACK REQUIRED 


FREE NETWORK USER BLOCK 


THEN WAIT 


CHECK IF NETWORK IDLE 
ATTEMPT TO FILL OUTPUT REQUEST CIF ANY) 


ARE wE OFFLINE? 

NO -- ATTEMPT CALLBACK 
ADJUST REGISTERS 

KILL OUTPUT 


MUST NOT EXIT OURSELVES 


ARE WE OFFLINE? 

YES ~- SIMPLY IGNORE 

ADJUST REGISTERS 

RESET INPUT AND QUEUE RETURN 


ADJUST REGISTERS 
RESET HUNG STATE IF IT EXISTS 


RESTORE NETWORK BLOCK 


USE USERS MAP 
FREE HANG 


CALL BACK IF HUNG 
ELSE JUST WAIT 


PAGE 0071 


Se a a aa 


Ba saci, ole 


ak ES via ee ae 


et oe ao eee Lies eee oes aE Ci Si aie | en 
bb. eR, Aa Gena Se Bot eo lei cae bea E 
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002452 31020 /EJECT 
002453 31030 * 
092454 34040 *PROCESS MODE SETTINGS FOR X25 NETWORK USERS 
002455 31050 * 
002456 31060 * <R3> = MODE COMMAND 
002457 31070 * <R6> = MODE SETTING 
002458 31080 * 
092459 0855 8380 O83F 31090 NETMDS JMP TSKXIT FOR NOW JUST IGNORE THEM 


3 
3 
; 
: 
3 
| 
: 
| 
7 
: 
: 
| 
: 
3 
: 
| 
7 
( 
: 


? 


ADH TREE 


NETX 


002460 
002461 
002462 
002463 
002464 
002465 
002466 
002467 
002468 
002469 
002470 
002471 
002472 
002473 
9002474 
002475 
002476 
002477 
002478 
002479 
002480 
002481 
002482 
002483 
002484 


002485 
002486 


002487 
002488 
002489 
002490 
002491 
002492 
002493 
J02494 


002495 
002496 
002497 
002493 
002499 
0025006 
Q002501 
002502 
002503 
002504 
002505 
002506 
002507 


0857 
0858 
O85A 
i Poe 6 
0850 
O85F 
0360 


O&62 
0864 
0365 
036? 
0268 
O86A 
0868 
O86c 
O86D 
O86F 
0870 


0871 
03873 
0374 
0875 
0877 
VE73 
G89 
OBA 


O87ec 
0879 
O87F 
93389 
J38e 
0883 
D834 
0885 


0886 
337 
US83o 
0389 
O88A 


0888 
J88D 
O8sF 
J8IV 


SOFTWARE 


SEO 
B380 
53:65 
EC D3 
53380 
DF 386 
8D43 


SErU 
E3855 
A880 
0062 
0680 
0200 
D8 {1 
0063 
0630 
b956 
O9FA 


82C1 
8000 
OSFC 
82C1 
0200 
OSFC 
CCD 
ACC4 


SO Se 
E870 
7C01 
82C4 
C004 
0500 
AE56 
8257 


AAS? 
A956 
0970 
8DA2 
O9FC 


AF G4 
D330 
8903 
3000 


0000 
0000 


0900 
0006 
0083 
0900 


O8FC 


O8FC 


0008 


0011 


OOOE 


9080 


0011 


0039 
GFE? 
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31100 
31110 
31120 
31130 
31140 
31150 
31160 
cag Om ee 28, 
511.460 
31190 
31200 
31210 
31220 
$1250 
31240 
S120 
31260 
31270 
31280 
S290 
37300 
S4.5:4'0 
$1320 
$1330 
31340 


$1350 
SUS66 


bee ce 
51380 
51390 
31400 
31410 
31420 
31430 
31440 


31450 
31460 
31470 
31480 
31490 
31500 
$154.0 
Spe 0 
31530 
31540 
ba pe go 6. 
31560 
31570 


/EJECT 


* 


09320358 
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*ROUTINE TO CREATE AN OUTBOUND CONNECTION ON A NETWORK 


* 


NETSET 


LDV 
LNJ 
JMP 
LOB 
LNJ 
STB 
SDI 


LEV 
LOR 
LAB 
DQH 
BC F 
BL 

LDR 
Q0H 
BCF 
CMR 
BNE 


LB 


BBF 
LB 


BBF 
LOB 
LD3 


CL 
LDR 
LOV 
LB 


B3BT 
SWR 
NEG 


ADD 
CMR 
BE 

CMiN 
BNE 


STR 
LNJ 
LBT 


R3/NETBKL 
B3eGETMEM 
B5+0 
B6.=B83 
B3,GETBLK 
B85-B6 
B3+NTINFO 


=$LVDIStHANGLV 
R6R5 
B2,NETQ 


NETERR 
se 
R5,B1 


NETERR 
R5R6 
Pad 


BI+DEVFGS,/SONOFF 


02 
B1+PFLAGS/X25PCL 


oe 
B4,7B1 
B2sB4+NETMAP 


R2 

R622=128 

R?7al 
B4+PFLAGS-DCEDTE 


4 
R2eR6 
R?7 


R2eR7 
R2ekR6 
we 
B2+R2 
wo 


R2eB4&tADDRSS 
BS #BLODMPX 
B3/XS$TWTG+tRSPOND 


ASSUME WE WILL SUCCEED...GET SOME MEMORY 


IF NO MEMORY THEN RETURN IMMEDIATELY 
SAVE DEVICE BLOCK ASIDE 

HAVE MAP ENTRY READY 

SAVE USERS RETURN 

SAVE CONNECT INFORMATION 


FREEZE WHILE WE FIND PORT TO CONNECT TO 
SAVE PORT ADDRESS ASIDE 
LOOK UP PORT IN NETWORK QUEUE 


HANDLE FUNNY MACHINE 
PUT NETWORK BLOCK BACK 


HANDLE FUNNY MACHINE 
DID WE MATCH 


ARE WE AN ONLINE JOBBY 


NOPE 
MUST BE X25 STYLE PROTOCOL 


ARENT 
WORK AS IF WE WERE NETWORK 
HAVE MAP HANDY 


ASSUME WE ARE OQUTBOUND NETWORK 
STOP AFTER HIGHEST NUMBERED PORT 
INCREASE EACH TIME 

ARE WE INFACT AN OUTBOUND NETWORK? 


YES =~ START IN 
SWAP STARTING. .ENDING POINTS 
REVERSE DIRECTION 


CHECK NEXT 
STOPPING POINT? 


YES -- NO SLOTS LEFT TO FILL 
ANY USER AT THIS SPOT 
YES -- TRY AGAIN 


SAVE STOPPING SLOT 
FINISH BUILDING MPX 
ATTEMPT CONNECTION 


a a ee ee ee ae ee ee 


SS ae a 


RENE * SNS Ta Sree Meee 


oi ca Seals bl LY 3.0 pine pw Se eee) FD 
ae ok Se ee eee est TM og 
. 
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002508 0891 BCD6 31580 LDB 33-=B6 NOW PREPARE NETWORK DEVICE BLOCK 
002509 0892 €EC83 51.590 LOB B6-853 RESTORE USERS RETURN 
002510 089% 9B80 N8AB 31600 LAB Bi-NDPTSK USE SPECIAL NODEPOINT TASKS 
002511 0895 0380 0000 Xx 31610 LNJ BS/NETCNX PREPARE NETWORK CONNECT BLOCK 
002512 0897 8380 O8FC 31620 JMP NETERR HANDLE ERRONEOUS RETURN 
002513 31630 * 

002514 0899 8944 0008 31640 LBT B4+DEVFGS/SONOFFtDCRDTA START ONLINE -- DISCARDING DATA 
08968 8040 

O05 15 890 SED BOSE 31650 LEV =SLVEXI RETURN TO USERS LEVEL 

002516 O89EF 83C6 OND 31660 JMP B6+2 RETURN WITH NETWORK PROCESSING 

002517 31670 * 

092518 O8AQ &EF&70 803F 31680 .2 LEV =$LVEXI RETURN TO USERS LEVEL 

002519 O8A2 9CD3 31690 LDB B1,=83 RELEASE PROPOSED NETWORK MAP BLOCK 

902520 O8A3 83580 ODODE X 31700 LNJ B3,/RELBLK 

002521 OQ8A5 9CD6 31710 LDB 61/=B6 RELEASE NETWORK DEVICE BLOCK 

002522 O8A6 AHCI 0016 31720 LAB B2,BI+NETBKL+7-1 

002523 Q8A& 8380 0900 xX 31730 LNJ B3,RELMEM 

002524 O8AA 8385 31740 JMP BS GIVE UNSUCCESSFUL SETUP RETURN 

902525 37750 * 

902526 O8A465 0030 31760 NOPTSK DC NETLEV LEVEL TO RETURN X25 VIRTUALS TO 

O02527 OSA 0838 Ce a as BC <TSKSRO START OUTPUT 

002526 O8AnD 0000 31780 dC Z*0G00" START INPUT CIGNORED) 

002529 O8AE 0841 31790 DC <TSKSTI STOP INPUT CAND COME UNHUNG) 

002530 O8AF OQ82C 31800 DC <TSKOFF LAST PROCESS CLEARED -= DISCONNECT 

0025371 O88C 0834 31810 DC <TSKCBK MODES =-- INVOKE CALLBACK 


‘ 


rs ee ee 
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002532 31820 /EJECT 
092533 31830 * 
002534 31840 *NETWORK ONLINE CHECK 
002535 31850 * 
002536 31860 *THIS ROUTINE IS CALLED BY SLAVE PROCESS WHICH WISHES TO 
002537 31870 *ASCERTAIN STATUS OF NETWORK CONNECTION. 
002538 31880 * 
002539 31890 *IF DEVICE IS ONLINE AND IN INFORMATION TRANSFER STATE WE RETURN 
002540 31900 * +1 ELSE WE RETURN (+0) 
002541 31910 » 
002542 0881 CC87 31920 NETONL LOB B4-B7 LOAD DEVICE BLOCK 
002543 0882 2c7F 31930 LDV R2,°7EF! CREATE INDICIE 
002544 0883 aA5sn4 31940 AND R2-B4 
002545 O8R6 8679 0082 31950 LEY =$LVDIS+HANGLV FREEZE WHILE WE CHECK 
002546 0886 &82C4 0008 31960 LB B4+DEVFGS+SONOFF ON OR OFFLINE 

0338 8000 
002547 088% 6580 T 31970 BBF a OFFLINE 
002548 O8BA ACC4 OOOF 31980 Ld8 B2,-B4+HOSTNT WORK THROUGH NETWORK BLOCK 
002549 O8BC ACC2 ODODE 31990 Loe B2,B2+NETMAP CHECK MAP 
| 002550 O8BE ACA2 32000 LOB B2,B2+R2 
: O02 55-4 O3s8F A&O2 32010 LDR R2 Be CHECK WHICH MODE WERE IN 
: 002552 O8c0U A570 E000 32020 AND R2,=X$MODE | 

002553 O8c2 A970 cO0O 32030 CMR R2,=X$SICTX ARE WE IN INFORMATION TRANSFER? 


a 


@ 

@ 

@ 

e 

@ 

e 

e 

e 

@ 

© 

e 002554 O8C4& O9FS5 T 32040 BNE a 

002555 O8cs 8E70 803F 32050 LEV =SLVEXI RETURN TO USERS LEVEL 
:@ 002556 O8C7 83C5 0001 32060 JMP BS+4 USE ONLINE RETURN 
002557 32070 * 

: NO255%8 03C€9 DCS S200: 44 LDB B5.B5 WAKE PROTOCOL AS WE EXIT 
@ 002559 O8CA OFAB 32090 B SNETRTIN 

@ 
@ 
® 
@ 
@ 
e 
e 
@ 
& 


a at cil 


Ne ee, Seen 


wy Te ee ae, Fe ee wen. tees i 1 Sade de ete aes 
é ma = 
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3 
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: 
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‘ 
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002560 32100 /EJECT 
9002561 32110 * 
002562 32120 *THIS ROUTINE WILL RESET THE HANG FLAG AND GENERATE A CALLBACK 
002563 Ser50° * 
002564 32140 *THE SLAVE INVOKES THIS ROUTINE INHIBITED..WE RETURN UNINHIBITED 
002565 32150 * 
002566 O8C8 CC87 32160 NETRDY LDB B4,B7 WORK WITH DEVICE BLOCK 
O02567 O8CC 8&2C4 0008 32170 L3 B4+DEVFGSsSONOFF ON/OFFLINE 

O8ce 8000 
002568 O8CF O58C 32180 6B F SNETRTX OFFLINE -- NOTHING TO DO 
OUCS6? CSbC- .2CcF 32190 LOV ROP CEs CREATE INDICIE 
002570 08D%1 A504 52200 AND R20B4 
002571 0802 ACC4 OOOF 32210 LDB B2,B4+HOSTNT WORK THROUGH NETWORK BLOCK 
O02572 0804 ACC2 OOOE 52220 LOB B2,/Be+NETMAP CHECK MAP 
002573 O8DoO ACA2 32230 LOB B2rB2tR2 
002574 O807 &8&42 0001 32240 LBF B2+NETFGS/DTEHNG NO LONGER HUNG 

0809 4000 
002575 O8&dA 0518 32250 BBT SNETRITN IF WE WERE HUNG =~ WAKE PCL 
002576 32260 * 
GO02¢s"7r NS08 8E7O BOSF 32270 NETRTX LEV =BLVEXI RETURN TO USERS LEVEL 
002578 OQ8DD 3285 32280 JMP B5 RETURN TO CALLER 


_) 


i 


j 
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002579 32290 /EJECT 

002580 32300 * 

002581 32310 *GENERATE BREAK TO NETWORK 

002582 32320 * 

002583 32330 *THIS ROUTINE IS CALLED WHEN THE NODE POINT DEVICE HAS 

002584 32340 *CAUSED A BREAK TO BE DETECTED. WE MUST FORWARD THIS INFORMATION 

002585 32350 *ONTO THE REMOTE END OF THE CONNECTION, 

002586 32360 * 

Q02587 32370 *THIS ROUTINE MUST NOT BE CALLED UNTIL CONNECTION ESTABLISHED 

002588 32380 * 

002589 C8DdDE CC87 32390 NETBRK LOB B4-B7 LOAD DEVICE BLOCK 

002590 O&8DF e2C7F 32400 LOV R2,*7F* CREATE INDICIE 

002591 Q8EO A504 32410 AND R284 

002592 OQ8&1 BE70 0083 32420 EY =$LVDIS+HANGLV FREEZE WHILE WE CHECK 

O02395- USES. -B8eCs6- D008 32430 LB B4+DEVFGS/SONOFF ON OR OFFLINE 
O¥E5 8000 

002594 O8E&6 OS5SFS5 32440 BBF SNETRTX OFFLINE 

002595 QO8EF7 8944 0008 32450 LBT B4+DEVFGS/BRKACT IS BREAK STILL ACTIVE CUNCONFIRMED) 
O8EX OO080 

002596 OC8EA 0577 32460 BBT bNETRTX YES 

002597 G8&EB 8944 0008 32470 ~ LBT B4+DEVFGS-DCRDTA DISCARD DATA UNTIL BREAK RESOLVED 
C8ED OC40 

002598 32480 * 

002599 Q8EE ACC4 ODOOF 32490 LOB B2eB4+HOSTNT WORK THROUGH NETWORK BLOCK 

002600 O8FD ACCe ODODE 32500 LD8 Be sB2+NETMAP CHECK MAP 

002601 O8F2 ACA2 32510 LD8 B2sBetRe 

O026C2 O8F3 8902 bra Wa © LBT B2sRSPOND INVOKE A RESPONSE 
O8F4 1000 

002603 32530 * 

002604 O8F5 8E70 803F 32540 ,NETRITN LEV =$LVEXI RETURN TO USERS LEVEL 

O0026C5 O8F7 8756 $2550 ct R6 SUBMIT A MODE TO INVOKE CALLBACK 

O026C6 C8FS E380 O00N X 5e760 LNJ B6/DEVMDS 

OOZED- “LAP ® 23:35 32570 JMP 35 RETURN TO CALLER 


ieeeet @eeeee ee ehlcOhlcOhhlUhhhlUlcrOhlUcOhlhl le 


j 


PPSEDRgeTE, 0 ES EEE © 


= = 


euae Boe tes a Oe ie oy. eae 
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002608 
002609 
002610 
002611 
002612 
002613 
002614 
002615 
002616 
OD 2:60:17 
002618 
002619 
002620 
002621 
002622 
902623 
002624 
002625 
002626 
002627 
002628 


Q8F3 


O8FC 
Ce rhe 


0900 
0901 
0992 


0903 
0996 
0907 
0908 
0909 
OFCA 
9908 


SOFTWARE 


0090 


8C 00 
SE 70 


0000 
0990 
0900 


0009 
FFF F 
0000 
0000 
6000 


0000 
0000 


0906 
0000 


0000 
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32580 
32590 
32600 
32610 
32620 
32630 
32640 
32650 
32660 
32670 
32680 
32690 
32700 
32710 
32720 
S2:0-50 
32740 
52750 
32760 
32770 
32780 


FEDJECT 


* 


x*STORAGE> 


* 


ZERO 
NETERR 
x 


NETQ 


* 
NETXIV 


09:20:58 


ETC. 
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z'ocoo' 


SERROR 
=$LVDIE 


z*0000' 
<NETQ 
<NETQ 


$+3 
3,2°0O000' 
z'oo0o0' 
LPP EF 
z*0000° 
<SMCPXT 
$SRGP 3 
162'09000' 
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FOR <B> MANIPULATORS 


SAVE LEVER WHERE CRASH OCCURRED 
CRASH 


NETWORK DEVICE QUEUE 


MMUsRFUsTSAP 

DEVICE 

SAVE ALL REGISTERS 

NOTHING SAVED FROM 2ND SET OF REGISTERS 
START BY WAITING 

PRIORITY 

ROOM FOR REGISTERS 


TERT 


NETX 


002629 
002630 
002631 
002632 
002633 
002634 
002635 
002636 
002637 
002638 
002639 


0918 
O91d 
OO 7F 
0920 
Oyce 
0923 
0924 


SOFTWARE 


BB 80 
BE 80 
8DD3 
0980 
3€30 
9CD6 
8380 


0906 
0030 


OS8FC 


0000 


1981/09/17 


$2790. J ESECT 
32800 * 


09:20:58 
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32810 * INITIALIZATION ROUTINE 


32820 * 
32830 INITNT 
32840 

32850 

32860 

S260 

32880 

32890 


LAB 
SW 
CMN 
BNE 
LDV 
LD3 
JMP 


B3-/NETXIV 
B3,$IVECT+NETLEV 
=B3 

NETERR 

R3/NETLEV 

B1,=B6 

ASNTSK 
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PREP INTERRUPT VECTOR 

STILL A VIRGIN 

NO 

SET UP PACKET NETWORK LEVEL FOR TASKS 


SET TASKS.eeRETURN INDIRECT 


NETX SOFTWARE ~SAF 1981/09/17 09:20:58 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0080 
002640 99990 /EJECT 
002641 99991 * 
002642 99992 *FORCE ALL MODULES TO BE OMOD8 IN LENGTH 
002643 99993 * 
002644 0929 99994 ESENDR EQU S-SSNETX+3 
002645 0926 0000 99995 RESV C(CCESENDR+7)/8)*8-ESENDR-~Z'0000° 
002646 99996 * 
002647 092d 4E45 99997 DC ‘NETX® MNEUMONIC NAME OF MODULE 
O92 5458 
002645 Q92F O000 99998 ESNETX DC <SSENETX START OF ROUTINE 
002649 Q936 99999 END NETX SOFTWARE 


OOOO ERR COUNT 
02504 WORD SYMBOL TABLE 


naa aus? ¥ eo i Ra 


Tes tte Aare EES 


Boe le 


: + gaze ide oh - 
Od ge See wn Laigke de 


NETX 


VPweBPeBsSBPBEeaBeBaBSBBBBPBSBSEBSBSBSBBPFBBSSBBSBSESZBSSS 
Sd 
> 


Z22222222222 22 
A 
> 
Lea) 
(ap) 
WN 


SOFTWARE 
5 724 
693 731 
1625 1631 
2398 2477 


815 


782 
1643 
2482 


~SAF 


907 


822 
1646 
2435 
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910 


954 
1648 
2487 


1337 


966 
1672 
2501 
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1353 1591 
1084 1144 
1743 1761 
2547 2554 
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1749 


1202 
1791 


2621 


1265 
1818 


2644 


1293 
2012 


1319 
2036 
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LST2 
2123 


1422 
2159 


1435 
2233 


1529 
2260 


1582 
2276 


PAGE 0081 
1612 1613 
2293 2322 


wt 
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& ® 
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N $SASCAP L277 
@ NV SASCAS 130 @ 
N SASCAT 142 
N $SASCB 96 
 @ = N SASCBA 145 @ 
N $ASCBS 143 
? N SASCC 97 
@ \ sasccm 132 @ 
N SASCCN 136 
$SASCCR 75 78 
@ % SAsco 98 @ 
N $ASCODL 126 
SASCDS 133 #1020 2171 
@ N sascoT 134 @ 
$SASCE 99 154 
oN SASCEC 77 
@ “ SASCEM 158 e 
N SASCEQ 139 
N $ASCF 1006 
@ N SASCFF 57 e 
: SASCFS USS. -TOSS- - 24276 
: N $SASCG 101 | 
@ % SASCGS 159 @ 
N $SASCGT 140 
N $ASCH 102 
3@ N SASCHT 155 r 
i N SASCI 103 
N $ASCJ 104 
@ “ SASCK 105 & 
N SASCL 106 
SASCLE 76 78 
@ % SasciP 122 @ 
N SASCLT 138 
N $ASCM 07 
@ N SASCN 108 S 
N $ASCO 109 
N $ASCP 110 
@ SASCPL 134 @ 
N $SASCQ 111 
N $SASCQM 141 | 
® $ASCR 112 1025 & 
SASCRO 146 147 1966 
N SASCRP 129 
@ SASCRS 160 ® 
$ASCS 113 2176 
N SASCSC 137 
@ SASCSP 125 1030 1735 2181 @ 
N $ASCT 114 
N SASCU 15 
@ SASCUA 144 @ 
N $ASCV 116 
N SASCVT 156 
@ & 
@ ® 


oo Snes 3 phe ee 
: 1 


SBeBEBPBSBZzPBPBBBZBPBBZSPBPBEBPBZBEZAS 


2 


$Be 


$B3 


$B4 


SOFTWARE 
117 
112 152 
149 
Ve 153 
793 
roe 
784 
846 
936 
990 
1086 
e270 
12380 
L352 
1374 
1615 
1684 
1745 
1829 
2026 
2190 
224) 
2288 
2328 
2499 699 759 
ec84 2317 
kek 707 735 
9314 936 
1195 1207 
TS16. US22 
1901 1919 
C26f 2270 
2403 2405 
kK Kk 708 736 
894 1042 
1436 1496 
4723 1736 
2034 2037 
2269 22795 
2522 2548 
kkk 700 704 
927 1087 
1503 1575 
1986 2016 
2396: <2 Sat 
2523 2633 
kkk 691 698 
787 788 
902 915 
982 983 
1086 1089 
1163 1173 


761 
2495 
736 
9368 
1248 
1574 
1932 
2281 
2406 
749 
1051 
1497 
1739 
2053 
Ta 
2549 
733 
1108 
1584 
rad Og 
2358 
2634 
705 
791 
924 
990 
1090 
1176 
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€13 
e005 
743 
941 
1250 
1575 
1933 
2282 
2415 
769 
1060 
1508 
1848 
2054 
SEE 
2550 
737 
1156 
1764 
2018 
2374 
2635 
713 
796 
929 
992 
1097 
1189 
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847 


745 

944 
1252 
1584 
1961 
e283 
2478 

791 
1062 
1509 
1849 
2069 
2292 
2551 

739 
1157 
1802 
2089 
2375 


714 
800 
930 
1001 
1099 
1195 


932 


748 
2 3¢ 
1277 
1653 
1991 
22d 
2484 
792 
1063 
1527 
1851 
2136 
2295 
2571 
750 
1174 
1803 
rae oe 
2376 


719 
804 
9351 
1006 
1105 
1196 
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987 


749 

265 
1447 
1655 
2015 
2319 
2486 

795 
1065 
1530 
1852 
2139 
2297 
2572 

760 
1238 
1833 
2269 
CSL 


729 
805 
733 
1010 
1121 
1197 


1100 


775 
967 
1449 
1658 
2016 
2220 
2488 
859 
1068 
1532 
1854 
ra ee 
2299 
2573 
766 
1239 
1880 
2288 
250% 


730 
810 
941 
1011 
1122 
erg 
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1206 


780 

978 
1456 
1677 
2017 
2324 
2510 

883 
1069 
1562 
1860 
2199 
2515 
2574 

767 
1272 
1905 
2319 
2384 


iso 
812 
942 
1017 
1123 
1238 


1270 


794 

981 
1460 
1687 
2022 
2334 
2519 

884 
11528 
1563 
1862 
2203 
2328 
cove 

781 
1299 
1910 
2320 
2416 


743 
820 
961 
Oe? 
1125 
1244 


1295 


795 

982 
1461 
1693 
2101 
2339 
2521 

885 
1159 
1564 
1865 
2221 
2351 
2600 

798 
1300 
1911 
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1360 1378 1394 1412 1421 1425 1433 1444 1451 1453 1456 1460 1471 1490 1493 1495 1505 1507 1508 
1516 1517 1518 1528 1562 1569 1586 1656 1661 1669 1671 1677 1678 1684 1698 1706 1726 1730 1732 
1736 1737 1739 #1740 1744 #1754 #1755 #1759 #1768 #1777 «21778 ~«#2«21783 «21784 «1792 «1793 «61801 61803) 1809 1810 
1813 1814 1817 1815 1822 1823 1826 1831 1833 1837 1840 1841 1846 1847 1848 1852 1886 1888 1889 
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2003 2009 2014 2034 2050 2078 2079 2112 2113 2116 2119 2129 2130 2137 2138 2143 2147 2148 2149 
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DEVKOT 518 777 =6©1170 1680 2431 
N DEVLEV 309 
DEVMDS 380 2606 
N DIRCON 420 
DQRBRK 5378 3278 -1679 
DQRDSC 5.05 776 61169 
DSSTAT 423 425 
DTECLK 618 1434 1436 1481 1875 1879 
DTECLR 1292 1074 
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DTEPSC 619 1380 1383 1453 2122 
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GETMERM 368 842 864 2465 
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